求助标注Lsp源程序

lihuixun

在设计中经常要标注多义线中的各段组成线的长度，有那一位高手有这样的Lsp程序，急
谢谢！

ZZXXQQ

本版块就有。楼主怎么不多看两页？

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=42085

lihuixun

我要的并不是Dim的标注，而只是在各段线上表个Text的数值，这在桥梁中的钢筋标注时常用

xyp1964

2. (load "xyp_lib")
3. ;|加载通用函数(可在签名栏直接下载)
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
6. 1.在acad.lsp中增加(load"xyp_lib")
7. 2.在每个程序内增加(load"xyp_lib")
8. 3.在command下，输入(load"xyp_lib")
9. 4.在菜单.mnl中增加(load"xyp_lib")
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
13. [url]dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
14. ;;;标注多义线各段线长
15. (defun c:test ()
16.   (CMDLASC0)
17.   (setq ss (ssget '((0 . "*LINE")))
18. i  -1
19.   )
20.   (mkla "线长标注" 4)
21.   (while (setq s1 (ssname ss (setq i (1+ i))))
22.     (setq ptlst (uptlst s1))
23.     (while (setq pt1 (car ptlst))
24.       (if (setq ptlst (cdr ptlst))
25. (progn
26.    (setq pt2   (car ptlst)
27.   tx    (rtos (distance pt1 pt2) 2 2)
28.   ang   (rad2ang (angle pt1 pt2))
29.   pt-tx (PT-RIGHT pt1 pt2 (* sc 100))
30.    )
31.    (command "text" "j" "BC" pt-tx (* sc 300) ang tx)
32. )
33.       )
34.     )
35.   )
36.   (CMDLA1)
37. )

(load "xyp_lib") ;|加载通用函数(可在签名栏直接下载) 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 1.在acad.lsp中增加(load"xyp_lib") 2.在每个程序内增加(load"xyp_lib") 3.在command下，输入(load"xyp_lib") 4.在菜单.mnl中增加(load"xyp_lib") 5.将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] [url]dispbbs.asp?boardID=3&ID=37554&page=1[/url]|; ;;;标注多义线各段线长 (defun c:test ()   (CMDLASC0)   (setq ss (ssget '((0 . "*LINE"))) i  -1   )   (mkla "线长标注" 4)   (while (setq s1 (ssname ss (setq i (1+ i))))     (setq ptlst (uptlst s1))     (while (setq pt1 (car ptlst))       (if (setq ptlst (cdr ptlst)) (progn    (setq pt2   (car ptlst)   tx    (rtos (distance pt1 pt2) 2 2)   ang   (rad2ang (angle pt1 pt2))   pt-tx (PT-RIGHT pt1 pt2 (* sc 100))    )    (command "text" "j" "BC" pt-tx (* sc 300) ang tx) )       )     )   )   (CMDLA1) )

程序效果：

lihuixun

对，这个标注效果就是我想要的，非常谢谢！

可是我加载后，运行rest后出现

命令: test
no function definition: CMDLASC0
命令:

不能用，为什么，请求帮助！！！

lihuixun

加载通用函数后可以用了，但不知道为什么不起作用，

使用test命令后：

命令: test

输入出图比例1 : 10

选择对象: 找到 1 个

选择对象:

命令:

但图没有出现标注

xyp1964

通用函数：

lihuixun

谢谢了

402326352

不错爱

顶下啊？