l

l

<P>垃圾！</P>

贵啊！

<P>我靠，Cad2000/2002的VBA Reference帮助中的Example里有，这些东西楼主还要现金，</P><P>嗯．．．真是</P><P>不就定义个2维3维变体(看LW与否),把Pline的坐标集赋给它,然后判断上下届,分出个XYZ吗?</P><P>200现金要积累多久,就为这个???</P>

如何获得现金啊？

<P>　　楼上的兄弟，我是这里的初来者，没钱（权）看你的程序，至于比，就更不敢了。我已很多年不搞LISP了，这只是我很多年以前编的，用来取PLINE线（工作中为界址、红线、或竣工房屋，当然也可以是任何实体，那要看你的目的了）坐标并进行标注，当然改两句也可以输出到文件。这可能就是你程序里的存放处吧。多有得罪！！！见谅！</P><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em21.gif" />

<P>楼上的lisp水平是不错啊，可是你的程序和我的程序不是一个目的啊？！</P><P>我以前用lisp也写出来过，有兴趣可以和你比一下。</P><img src="images/post/smile/dvbbs/em07.gif" />

<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>

<img src="images/post/smile/dvbbs/em03.gif" />