撤啦
本帖最后由 xj6019 于 2020-11-20 21:31 编辑撤啦撤啦撤啦撤啦 999999 发表于 2020-11-3 12:13
哈哈，，楼主是真的历害哇，乐心助人
闲着玩也是玩 楼主，看看这个能写不：在CAD中设置了“测量比例因子”比如设置的是1：50
当在CAD中想画一条100长的直线(多段线等)时，如直接输入100，则用DLI测出的结果是5000，必须输入2才可以得到100的长度
想要的结果是：输入L命令，提示长度时输入100，结果是2
以下代码是找人写的，能不能合到系统的命令里
(DEFUN WH_DXF(CODE ENTNAME) (CDR (ASSOC CODE (ENTGET ENTNAME))));DEFUN
(defun DTOR (a) (* pi (/ a 180.0)))
(defun RTOD (a) (* 180.0 (/ a pi)))
(defun c:l()
(command "undo" "be")(setq osmode (getvar "osmode"))(setvar "cmdecho" 0)
(setvar "osmode" 16383)(vl-load-com)
(setq blyz (getvar "dimlfac"))
(setq cd (getreal "\n请输入直线长度"))
(setq cdreal (/ cd blyz))
(setq pt1 (getpoint "\n请选择直线起点")
pt2 (getpoint pt1 "\n请点选以确定直线方向")
)
(command "line" pt1 pt2 "")
(setq ss (ssget "l"))
(setq scnum (/ cdreal (distance pt1 pt2)))
(command "scale" ss "" pt1 scnum)
(setvar "osmode" osmode)
(command "undo" "e")(princ)
) 本帖最后由 nochao 于 2020-11-4 15:42 编辑
有时间能帮忙做个：选中尺寸标注生成总长标注的插件吗？
另外再把这个生成总长标注的功能添加到http://bbs.mjtd.com/forum.php?mo ... hlight=%B1%EA%D7%A2
里面的快速拉线标注后面吧
这个间距=标注样式里面的“固定长度的尺寸界线”(比如5.5)×全局比例(比如100)=550
有空研究下这个功能啊
http://bbs.mjtd.com/thread-182338-1-1.html
cghdy 发表于 2020-11-3 09:50
有空研究下这个功能啊
http://bbs.mjtd.com/thread-182338-1-1.html
这个功能要等待高手呀，我也发过帖子，已经在用那个代码了，感觉还行，你不妨试试：
http://bbs.mjtd.com/thread-182310-1-1.html 哈哈，，楼主是真的历害哇，乐心助人 xj6019 发表于 2020-11-3 10:01
这个功能要等待高手呀，我也发过帖子，已经在用那个代码了，感觉还行，你不妨试试：
http://bbs.mjtd.co ...
这么巧啊，原来你刚研究过。谢谢 xj6019 发表于 2020-11-3 12:46
闲着玩也是玩
楼主，如果您有时间的话，刚好您又有兴趣的话，您可以帮忙进我的空间那看一下哟，我有好多个想法，您可以挑一下您觉得简单的练练哟，哈哈，，我的想法多到目前我无能为力 楼主弄个只对运行的文件自动保存功能吧，电脑太差。 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=182436&highlight=%D1%D3%B3%A4%CF%DF
楼主，这个能不能帮忙解决下 选择时框选改成选端点