[求助]生成直线不成功

my_autocad

(defun C:tt()
(setvar "cmdecho" 0)
(setq
      e (entget (car (entsel)))
      pt1 (cdr (assoc 10 e))
      pt2 (cdr (assoc 11 e))
      ang (* (/ (angle pt1  pt2) pi) 180)
      d1  (-(car pt1) (car pt2))
      d2  (-(cadr pt1) (cadr pt2))
      d3  (-(caddr pt1) (caddr pt2))
      dis (sqrt (+ (* d1 d1) (* d2 d2) (* d3 d3)))
      midp (polar pt1 ang (/ dis 2))
      )
    (command "line" pt1 midp "")
    (command "line" pt2 midp "")
  )

已知一条直线，我选取它后，想生成两条直线

原直线的端点与中点的联线

但是不成功，为什么呢?

caoyin

    (command "line" pt1 midp "")
    (command "line" pt2 midp "")

-》

    (command "line" "non" pt1 "non" midp "")
    (command "line" "non" pt2 "non"midp "")

用 BREAK 不就解决了吗

my_autocad

加non表示什么意思呢？关捕捉吗？

恩，这个程序不是最终想要的结果，最终的结果是想选中已有直线，生成打断符号。

初学lsp，一步一步来吧

谢谢

my_autocad

加non，还是没有成功，怎么回事呢？

yitian519

ang (* (/ (angle pt1  pt2) pi) 180)
这句改为

ang (angle pt1  pt2)

polar 看帮助

my_autocad

恩，谢谢楼上，问题已解决

yitian519

d1 (/ (+(car pt1) (car pt2)) 2)
d2 (/  (+(cadr pt1) (cadr pt2)) 2)
d3  (/ (+(caddr pt1) (caddr pt2)) 2)

midp (list di d2 d3)

用这个求中点，不会出现角度反方向的情况

my_autocad

(defun C:tt( / e pt1 pt2)
    (COMMAND ".UNDO" "BE")
    (setvar "cmdecho" 0)
    (setq Ln (getvar "CLAYER"))
    (setvar "Clayer" LN)
    (setq ss (entsel)) 
    (setq e (entget (car ss))
          pt1 (cdr (assoc 10 e))
          pt2 (cdr (assoc 11 e))
          int 10
          int (getint (strcat "\n请输入比例：<" (itoa int) ">"))
          dis1  (-(/ (distance pt1 pt2) 2) (* int 2.25 ))
          dis2  (-(/ (distance pt1 pt2) 2) (* int 2.25 ))
          dis   (/ (distance pt1 pt2) 2)
          midp1 (polar pt1 (angle pt1 pt2)  dis1)
          midp2 (polar pt2 (angle pt2 pt1)  dis2)
          midp  (polar pt2 (angle pt2 pt1)  dis)
          ang (* (/ (angle pt2 pt1) pi) 180)
    )
    (if (tblsearch "layer" "T填充")
        ()
        (command "layer" "n" "T填充" "C" "251" "T填充" "")
        )
        (setvar "Clayer" "T填充")
    (command "line" "non" pt1 "non" midp1  "")
    (command "line" "non" pt2 "non" midp2  "")
    (command "erase" ss "")
    (command "insert" "符号" midp  int int  ang "")
    (setvar "Clayer" LN)
    (COMMAND ".UNDO" "E")
    (COMMAND "")
)

未知命令“TT”。按 F1 查看帮助。为什么呢

my_autocad

未知命令“TT”。按 F1 查看帮助。

程序能执行，但有以上问题出现，哪里错了呢？

ZZXXQQ

这句末尾多了一对双引号
(command "insert" "符号" midp  int int  ang "")