|
阅读：8930回复：22
取Pline实体各顶点坐标VBA源码
时间长没上网, 有朋友要的源码现在发上.记得有好东西也要给我
[UseMoney=200]<a href="attachment/200431317252667243.txt">200431317252667243.txt</a> [/UseMoney] <img src="images/post/smile/dvbbs/em04.gif" /> |
|
|
1楼#
发布于：2004-03-17 10:14
这就是啊，前面的代码是建立选择集啊
|
|
|
2楼#
发布于：2004-05-09 19:43
<P>贵了，呵呵</P>
|
|
|
|
3楼#
发布于：2004-07-08 13:33
<P><img src="http://www.gisempire.com/bbs/Skins/default/topicface/face3.gif"></P>
|
|
|
4楼#
发布于：2004-07-09 18:08
<img src="images/post/smile/dvbbs/em03.gif" />
|
|
|
5楼#
发布于：2004-07-12 12:58
<P>太黑了，我写了一个LISP版的，放在下面与兄弟们分享，贪财太可恶！！！</P><P>;贾氏坐标注记程序；适合各种实体！！！
(defun C:zJ() (setvar "cmdecho" 0) (setvar "osmode" 0) (COMMAND "-STYLE" "TTST" "SIMKAI.TTF" 0 0.9 0 "N" "N""")</P><P> (setq SC (GETREAL "请输入标注字高<1.0>:")) (if (= sc nil) (setq sc 1) ) (setq LABLE (entget(car (entsel "请选择要标注的实体:")))) (command "color" 5"") (while (SETQ la1 (assoc '10 LABLE))</P><P> (SETQ la (CDR la1)) (SETQ JJX (rtos (cadr la) 2 3)) (SETQ JJX (strcat "X=" JJX)) (SETQ JJY (rtos (car la) 2 3)) (SETQ JJY (strcat "Y=" JJY)) ;求标注文字的最大长度 (setq lenx (* (+ (strlen jjx) 1) sc)) (setq leny (* (+ (strlen jjy) 1) sc)) (if (< lenx leny) (setq lenx leny) ) ;求标注线水平段的长度 (setq lenx (* lenx 0.65)) (setq lb (list (+ (car la) (* 2 sc)) (+ (cadr la) (* 2 sc)))) (setq lc (list (+ (car lb) lenx) (cadr lb))) (COMMAND "PLINE" la lb lc"") (command "Text" "j" "bl" (list (+ (car lb) (* 0.5 sc)) (+ (cadr lb) (* 0.4 sc))) (* 1 sc) 0 JJX) (command "Text" "j" "tl" (list (+ (car lb) (* 0.5 sc)) (- (cadr lb) (* 0.5 sc))) (* 1 sc) 0 JJy) (setq LABLE (CDR (MEMBER LA1 LABLE) )) ) (command "color" "BYLAYER" "") )</P> |
|
|
6楼#
发布于：2004-07-15 21:24
<P>楼上的lisp水平是不错啊，可是你的程序和我的程序不是一个目的啊？！</P><P>我以前用lisp也写出来过，有兴趣可以和你比一下。</P><img src="images/post/smile/dvbbs/em07.gif" />
|
|
|
7楼#
发布于：2004-07-25 10:54
<P> 楼上的兄弟，我是这里的初来者，没钱（权）看你的程序，至于比，就更不敢了。我已很多年不搞LISP了，这只是我很多年以前编的，用来取PLINE线（工作中为界址、红线、或竣工房屋，当然也可以是任何实体，那要看你的目的了）坐标并进行标注，当然改两句也可以输出到文件。这可能就是你程序里的存放处吧。多有得罪！！！见谅！</P><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em21.gif" />
|
|
|
8楼#
发布于：2004-10-24 15:27
如何获得现金啊？
|
|
|
9楼#
发布于：2004-10-31 00:02
<P>我靠，Cad2000/2002的VBA Reference帮助中的Example里有，这些东西楼主还要现金，</P><P>嗯．．．真是</P><P>不就定义个2维3维变体(看LW与否),把Pline的坐标集赋给它,然后判断上下届,分出个XYZ吗?</P><P>200现金要积累多久,就为这个???</P>
|
|
上一页
下一页