flytoday 发表于 2012-4-23 14:03:14

求修改院长滴带等号自动标注源码。。麻烦哪位老师了谢谢

本帖最后由 flytoday 于 2012-4-24 06:46 编辑

在此特此感谢院长公布源码。谢谢了好人啊谢谢。。
知道不能再麻烦院长了。。
希望哪位老师帮我改下
如下图



本代码功能就是带等号线自动标注。。。。
就是命令有个提示当图中的线为平行线间距351mm以内时只标注一边。。。
还有有个最好还有有个字高设置提示谢谢。。


源码如下：烦劳路过滴老师有空帮忙修改下谢谢
(defun c:test910 ()
(CMDLAsc0)
(setq      ss(ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
      i   -1
      lst '()
)
(while (setq s1 (ssname ss (setq i (1+ i))))
    (setq lst (cons (list (xyp-get-CurveLength s1) s1) lst))
)
(setq      lst(vl-sort lst '(lambda (e1 e2) (< (car e1) (car e2))))
      i    0
      lst2 '()
)
(foreach a lst
    (setq leng (car a)
          s1   (cadr a)
    )
    (if      (not (member leng lst2))
      (setq lst2 (cons leng lst2)
            i         (1+ i)
      )
    )
    (setq pt(xyp-get-CurveMidPoint s1)
          rad (XYP-RAD2REAL (XYP-GET-ANGLEATPOINT s1 pt) 1)
          p1(polar pt rad 5)
          p2(polar pt rad -5)
          pt(xyp-get-RightPoint p1 p2 (* xyp-sc 200))
    )
    (xyp-Text 5 pt (strcat "L" (itoa i) "=" (rtos leng 2)))
    (xyp-SubUpd (entlast) 50 rad)
)
(CMDLA1)
)

flytoday02 发表于 2012-4-23 14:03:15

解决了

xiaxiang 发表于 2012-4-23 14:11:45

这个程序有很多院长自己的函数，无法改哦。。。
要么还是找院长，要么重写

flytoday 发表于 2012-4-23 14:14:30

不是吧应该能改刚才院长刚给的源码。。不能改大师他给源码应该不会是吧///

flytoday 发表于 2012-4-23 14:53:23

这个伪源码吗。。希望哪位老师写一个谢谢

langjs 发表于 2012-4-23 15:52:48

院长的程序不敢乱改，怕院长

yjr111 发表于 2012-4-23 15:55:06

l狼兄的程序不敢乱改，怕狼。。。

flytoday 发表于 2012-4-23 15:57:39

院长啊大家都怕你。。就麻烦你改改吧。。。

hao3ren 发表于 2012-4-23 16:00:34

还穿着内裤呢，看不清里面啥东东

induh62662 发表于 2012-4-24 00:15:19

剔除恐龙美化校园！
页: [1] 2
查看完整版本: 求修改院长滴带等号自动标注源码。。麻烦哪位老师了谢谢