社区 › AutoLISP/Visual LISP 编程技术 › 求高手帮忙写个双击标注修改尺寸的autolisp程序

liuzhaoyzz 发表于 2013-4-7 06:55:22

wowan1314 发表于 2013-4-6 16:28 static/image/common/back.gif
楼主就是想要个双击管理器的程序吧？

可以明确的告诉楼主论坛上有几个现成的。 就看你找不找了或愿不愿自 ...

http://bbs.mjtd.com/thread-91759-1-1.html
双击反应器管理，这个加载不了，提示错误。
我在cad2004下面加载mkdbckset.lsp，提示命令: ; 错误: no function definition: VLR-MOUSE-REACTOR，然后ww命令调不出来，请问下怎么办？

liuzhaoyzz 发表于 2013-4-7 07:03:42

http://bbs.mjtd.com/forum.php?mod=redirect&goto=findpost&ptid=89296&pid=482198&fromuid=395374
caiqs，师兄，qq361865648
双击编辑标注.rar (26.36 KB, 下载次数: 35)
这个程序，每次打开程序都要有个logo，而且双击修改后标注线仍然处于选中状态，还不如直接ed。

liuzhaoyzz 发表于 2013-4-7 11:01:36

(vl-load-com)加到程序前面之后，可以载入程序了，ww也可以调出来设置，但是双击标注还是调出来的是属性对话框，不是ddedit，我也设置选择了双击有效了。
请教。

liuzhaoyzz 发表于 2013-4-7 11:06:46

对齐标注可以直接双击修改了，但是线性标注不行。

meja 发表于 2013-6-18 13:45:09

呵呵，没找对程序，我都用了10几年了

香田里浪人 发表于 2013-6-23 20:58:43

(defun C:test (/ old_cmd index ss ent)
(princ "\n选择要修改的尺寸线:")
(if (not (setq ss (ssget '((0 . "*dim*")))))
    (exit)
)
(setq index 0)
(setq txt (getstring "\n输入新尺寸值:"))
(repeat (sslength ss)
    (setq ent (entget (ssname ss index))
   index (+ 1 index)
    )
    (entmod (subst (cons 1 (strcat txt "m")) (assoc 1 ent) ent)
    )
)
)

幸福是真 发表于 2013-9-21 15:30:39

尺寸双击本来就是编辑状态的啊

寒林清远 发表于 2013-9-21 16:55:15

香田里浪人 发表于 2013-6-23 20:58 static/image/common/back.gif
(defun C:test (/ old_cmd index ss ent)
(princ "\n选择要修改的尺寸线:")
(if (not (setq ss (ssge ...

文不对题啊……

5cllovely 发表于 2013-9-21 18:49:00

16L的程序可以修改尺寸标注值，而且比cad的ed命令方便，
(princ "\n选择要修改的尺寸线:")

    (entmod (subst (cons 1 (strcat txt "m")) (assoc 1 ent) ent)
这句话把(strcat txt "m")改为txt，否则把标注加m了

liuzhaoyzz 发表于 2015-2-12 08:46:06

16楼的和19楼的说的不行啊？cad2004加载后调出来的是属性对话框，不是直接ed的效果。

查看完整版本: 求高手帮忙写个双击标注修改尺寸的autolisp程序