使用autolisp标记

autocrap · 发表于 2022-7-6 10:01:48

享受

autocrap · 发表于 2022-7-6 10:03:32

这是我修改的丹中尉的腿部程序。当我在使用程序时尝试输入管道尺寸时，我在下半部分遇到了问题。

(defun c:lf (/ p1 p2 di ang ins txt)
(setq p1 (getpoint "\nSpecify first point: "))
(setq p2 (getpoint p1 "\nSpecify second point: "))
(setq di (distance p1 p2))
(setq ang (angle p1 p2))
(setq ins (getpoint "\nSpecify text location: "))
(setq txt (strcat (rtos di 4 2) "' " (angtos ang)))
;or (setq txt (strcat (rtos di 4 2) (angtos ang)))
 (entmake
   (list
    '(0 . "text")
     (cons 1 TXT)
     (cons 10 ins)
     (cons 11 ins)
     (cons 40 2.5)
     (cons 50 ang)
     (cons 72 1);replace 1 with 0 for text justification left
    )
   )
(princ)
)