撤啦

xj6019

撤啦撤啦撤啦撤啦

xj6019

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

有时间能帮忙做个：选中尺寸标注生成总长标注的插件吗？

另外再把这个生成总长标注的功能添加到http://bbs.mjtd.com/forum.php?mo ... hlight=%B1%EA%D7%A2
里面的快速拉线标注后面吧
这个间距=标注样式里面的“固定长度的尺寸界线”(比如5.5)×全局比例(比如100)=550

cghdy

有空研究下这个功能啊
http://bbs.mjtd.com/thread-182338-1-1.html

xj6019

cghdy 发表于 2020-11-3 09:50
有空研究下这个功能啊
http://bbs.mjtd.com/thread-182338-1-1.html

这个功能要等待高手呀，我也发过帖子，已经在用那个代码了，感觉还行，你不妨试试：
http://bbs.mjtd.com/thread-182310-1-1.html

999999

哈哈，，楼主是真的历害哇，乐心助人

cghdy

xj6019 发表于 2020-11-3 10:01
这个功能要等待高手呀，我也发过帖子，已经在用那个代码了，感觉还行，你不妨试试：
http://bbs.mjtd.co ...

这么巧啊，原来你刚研究过。谢谢

999999

xj6019 发表于 2020-11-3 12:46
闲着玩也是玩

楼主，如果您有时间的话，刚好您又有兴趣的话，您可以帮忙进我的空间那看一下哟，我有好多个想法，您可以挑一下您觉得简单的练练哟，哈哈，，我的想法多到目前我无能为力

longer1000

楼主弄个只对运行的文件自动保存功能吧，电脑太差。

天宇飞翔12

http://bbs.mjtd.com/forum.php?mo ... =%D1%D3%B3%A4%CF%DF
楼主，这个能不能帮忙解决下

天宇飞翔12

选择时框选改成选端点