绘制线条的Lisp

trmg · 发表于 2022-7-6 08:57:03

好的，我完全理解。我真的很想理解你的Lisp程序，但这对我来说很难。如果你不在乎45个角度，你能在各个方向做同样的工作吗？只是直线？

trmg · 发表于 2022-7-6 08:59:17

(defun c:vv15 (/ pt)
 
   (command "TEXT" "S" "ISO" "0,25,0" "125" "0" "KV5-15")
     (command "TEXT" "S" "ISO" "0,-150,0" "125" "0" "VV5-15")
       (command "LINE" "0,0,0" "540,0,0" "")
     (command "-BLOCK" "v15" "270,0" "BOX" "700,700,0" "-700,-700,0" "")
(princ)
)
(defun c:vv18 (/ pt)
 
 
   (command "TEXT" "S" "ISO" "0,25,0" "125" "0" "KV5-15")
     (command "TEXT" "S" "ISO" "0,-150,0" "125" "0" "VV5-15")
       (command "LINE" "0,0,0" "540,0,0" "")
     (command "-BLOCK" "v18" "270,0" "BOX" "700,700,0" "-700,-700,0" "")
(princ)
  
)
(defun c:ss50 (/ pt)
 
   (command "TEXT" "S" "ISO" "0,25" "125" "0" "S1-50")
     
       (command "LINE" "0,0,0" "540,0" "")
     (command "-BLOCK" "ss50" "270,0" "BOX" "700,700,0" "-700,-700,0" "")
(princ)
)
(defun c:ss75 (/ pt)
 
   (command "TEXT" "S" "ISO" "0,25" "125" "0" "S1-75")
     
       (command "LINE" "0,0,0" "540,0" "")
     (command "-BLOCK" "ss50" "270,0" "BOX" "700,700,0" "-700,-700,0" "")
(princ)
)
(defun c:ss110 (/ pt)
 
   (command "TEXT" "S" "ISO" "0,25" "125" "0" "S1-110")
     
       (command "LINE" "0,0,0" "540,0" "")
     (command "-BLOCK" "ss50" "270,0" "BOX" "700,700,0" "-700,-700,0" "")
(princ)
)
(defun c:dd110 (/ pt)
 
   (command "TEXT" "S" "ISO" "0,25" "125" "0" "D2-110")
     
       (command "LINE" "0,0,0" "540,0" "")
     (command "-BLOCK" "ss50" "270,0" "BOX" "700,700,0" "-700,-700,0" "")
(princ)
)
(defun c:skapablock (/ pt)
 
   (command "vv15" "vv18" "ss50" "ss75" "ss110" "dd110")
     
      
(princ)
)

劫持我自己的线程以获取其他信息：

除了最后一个应该调用所有其他函数的函数外，所有函数都工作。我该怎么做？它只是说他们都有未知的命令。

BIGAL · 发表于 2022-7-6 09:02:54

（VV15）（VV1）等

trmg · 发表于 2022-7-6 09:06:27

非常感谢。有人可以发布垂直而不是水平的线条脚本吗？我不知道怎么做。如果有人这么做，我会非常感激。

再次感谢您的帮助。意味着很多

BIGAL · 发表于 2022-7-6 09:10:11

只需将使用0.0角度的代码更改为（/pi 2.0）

trmg · 发表于 2022-7-6 09:14:27

原始代码：

copy

; lisp to draw hor lines plus 45's between 2 points
; By BIGAL Jan 2012
(defun c:horbend ()
(setq pt1 (getpoint "\npick 1st point on terminal bar"))
(setq pt2 (getpoint "\npick 2nd point "))
; ang2 is horiz lines ang3 is 45 lines
(setq ang1 (angle pt1 pt2))
(cond
 ((> ang1 4.412388)(setq ang2 0.0)(setq ang3 (* 0.75 pi)))
 ((> ang1 pi)(setq ang2 pi)(setq ang3 (* 0.25 pi))) 
 ((> ang1 (/ pi 2.0))(setq ang2 PI)(setq ang3 (* 0.75 pi)))
 ((> ang1 0.0)(setq ang2 0.0)(setq ang3 (* 0.25 pi)))
)
(setq pt3 (polar pt1 ang2 20.0)) 
(setq pt4 (polar pt2 ang3 20.0))
(setq pt5 (inters pt1 pt3 pt2 pt4 nil))
(command "line" pt1 pt5 pt2 "")
)
(princ)

我的编辑：

copy

; lisp to draw hor lines plus 45's between 2 points
; By BIGAL Jan 2012
(defun c:hg ()
(setq pt1 (getpoint "\npick 1st point on terminal bar"))
(setq pt2 (getpoint "\npick 2nd point "))
; ang2 is horiz lines ang3 is 45 lines
(setq ang1 (angle pt1 pt2))
(cond
 ((> ang1 4.412388)(setq ang2 (/ pi 2.0))(setq ang3 (* 0.75 pi)))
 ((> ang1 pi)(setq ang2 pi)(setq ang3 (* 0.25 pi))) 
 ((> ang1 (/ pi 2.0))(setq ang2 PI)(setq ang3 (* 0.75 pi)))
 ((> ang1 (/ pi 2.0))(setq ang2 (/ pi 2.0))(setq ang3 (* 0.25 pi)))
)
(setq pt3 (polar pt1 ang2 20.0)) 
(setq pt4 (polar pt2 ang3 20.0))
(setq pt5 (inters pt1 pt3 pt2 pt4 nil))
(command "line" pt1 pt5 pt2 "")
)
(princ)