测量单位比例因子

疯球

请哪位大神优化一下这个代码：在CAD中设置了“测量比例因子”比如设置的是1：50
1、要画一条50mm的直线，没设比例以前直线的长度为50mm(用DLI测)2、当设置了比例因子后，再画一条50mm的直线，这条直线的实际长度是1mm（DLI测是50mm,实际画的时候只能画1mm）
3、当要画600mm时，画之前得自己600/50一下，然后再在画直线时输入长度为12
4、想要的结果是：想画600mm长的直线时(DLI测)，直线命令直接输入600，得到的结果是12mm的长度5、以下这个代码，可以完成画600mm的长度时，可直接输入600，得到12mm的长度，想请教各位老帅，能不能直接用L或PL命令得到这个结果


(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 pt1 (getpoint "\n请选择直线起点")
        pt2 (getpoint pt1 "\n请点选以确定直线方向")
  )
  (command "line" pt1 pt2 "")
  (setq ss (ssget "l"))
  (setq scnum (/ cdreal (distance pt1 pt2)))
  (command "undo" "e")(princ)
)

xj6019

这个代码好像完全就能满足你的需要呀

疯球

xj6019 发表于 2020-11-20 18:28
这个代码好像完全就能满足你的需要呀

这个代码得输入代码的命令才可以

疯球

请哪位大神修改一下

疯球

疯球

疯球

xj6019

疯球 发表于 2020-11-25 07:54

别着急，我相信，你发表的这个帖子，估计就你自己知道你要什么，别人估计连懂都看不懂，你想干嘛，建议你重新整理，把你的想法，思路表述的更清楚一点，别惜字如金，别人都懒得猜，知道吗，多写几个字，尽量把问题表达的更全面易懂

xj6019

疯球 发表于 2020-11-20 22:11
这个代码得输入代码的命令才可以

我也很好奇，不输入代码的命令，代码怎么运行，好奇怪的感觉

疯球

xj6019 发表于 2020-11-25 08:10
我也很好奇，不输入代码的命令，代码怎么运行，好奇怪的感觉

不好意思，你看这样清楚了吗？
1、要画一条50mm的直线，没设比例以前直线的长度为50mm(用DLI测)2、当设置了比例因子后，再画一条50mm的直线，这条直线的实际长度是1mm（DLI测是50mm,实际画的时候只能画1mm）
3、当要画600mm时，画之前得自己600/50一下，然后再在画直线时输入长度为12
4、想要的结果是：想画600mm长的直线时(DLI测)，直线命令直接输入600，得到的结果是12mm的长度
5、我发的代码，可以完成画600mm的长度时，可直接输入600，得到12mm的长度，想请教老帅，能不能直接用L或PL命令得到这个结果