撤啦

xj6019

ninja37 发表于 2020-11-8 20:30
楼主帮忙干一下这个小活。
http://bbs.mjtd.com/thread-182574-1-1.html

我的水平也只会点皮毛，只会拼凑代码，回你的帖子吧，凑了半天，凑起来了，试试可以吗

ninja37

好的  麻烦你了

sdls

xj6019 发表于 2020-11-8 19:04
你把 (setq pt2 (list maxx miny))改成
       (setq pt2 (list minx maxy))
试一下

可以了，还要调几个+-符号!多谢楼主

疯球

楼主，看看这个能写不：在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)
)