三点画室内门的程序画出来不对，请大神指点

非你可1

(defun c:Door3P (/ pt1 pt2 pt3 ang width door_len)
  (setvar "cmdecho" 0) ; 关闭命令回显
  ;-- 用户输入处理 --
  (if (and (setq pt1 (getpoint "\n选择门洞插入点: "))
           (setq pt2 (getpoint pt1 "\n指定开启方向端点: "))
           (setq pt3 (getpoint pt2 "\n指定门板宽度确认点: ")))
    (progn
      ;-- 参数计算 --
      (setq ang (angle pt1 pt2))   ; 计算开启角度
      (setq width (distance pt2 pt3)) ; 计算门板宽度
      (setq door_len (distance pt1 pt2)) ; 门板长度默认取墙厚

      ;-- 图层设置 --
      (command "-layer" "m" "门构件" "c" "7" "" "lw" "0.3" "" "") ; 创建门图层

      ;-- 绘制门板矩形 --
      (command "pline"
        pt1
        (polar pt1 (+ ang (/ pi 2)) (/ width 2)) ; 计算左上角点
        (polar (polar pt1 ang door_len) (+ ang (/ pi 2)) (/ width 2)) ; 右上角点
        (polar pt1 ang door_len) ; 右下角点
        "c") ; 闭合多段线

      ;-- 绘制开启弧线 --
      (command "arc" pt1 "c" pt2 (polar pt1 ang door_len)) ; 三点画弧

      (princ "\n门构件绘制完成！"))
    (princ "\n输入点无效，操作已取消。"))
  (princ))

xyp1964

1. (defun c:tt ()
   
2.   "三点画门"
   
3.   (if (and (setq pt1 (getpoint "\n选择门洞插入点: "))
   
4.            (setq pt2 (getpoint pt1 "\n指定开启方向端点: "))
   
5.            (setq pt3 (getpoint pt2 "\n指定门板宽度确认点: "))
   
6.       )
   
7.     (progn
   
8.       (setq ang   (angle pt1 pt2) ; 计算开启角度
   
9.             width (* (distance pt2 pt3) 0.5) ; 计算门板宽度
   
10.             ww    (distance pt1 pt2) ; 门板长度默认取墙厚
    
11.       )
    
12.       (command "-layer" "m" "门构件" "c" "7" "" "lw" "0.3" "" "") ; 创建门图层
    
13.       (setq pt4  (polar pt1 ang ww) ; 右下角点
    
14.             pt1a (polar pt1 (+ ang (/ pi 2)) width) ; 计算左上角点
    
15.             pt4a (polar pt4 (+ ang (/ pi 2)) width) ; 右上角点
    
16.             pt4b (polar pt4 (- ang (/ pi 2)) width)
    
17.       )
    
18.       (command "pline" pt1 pt1a pt4a pt4 "c")
    
19.       (command "arc" pt1 "c" pt2 pt4b) ; 三点画弧
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )

(defun c:tt ()<br />   "三点画门"<br />   (if (and (setq pt1 (getpoint "\n选择门洞插入点: "))<br />            (setq pt2 (getpoint pt1 "\n指定开启方向端点: "))<br />            (setq pt3 (getpoint pt2 "\n指定门板宽度确认点: "))<br />       )<br />     (progn<br />       (setq ang   (angle pt1 pt2) ; 计算开启角度<br />             width (* (distance pt2 pt3) 0.5) ; 计算门板宽度<br />             ww    (distance pt1 pt2) ; 门板长度默认取墙厚<br />       )<br />       (command "-layer" "m" "门构件" "c" "7" "" "lw" "0.3" "" "") ; 创建门图层<br />       (setq pt4  (polar pt1 ang ww) ; 右下角点<br />             pt1a (polar pt1 (+ ang (/ pi 2)) width) ; 计算左上角点<br />             pt4a (polar pt4 (+ ang (/ pi 2)) width) ; 右上角点<br />             pt4b (polar pt4 (- ang (/ pi 2)) width)<br />       )<br />       (command "pline" pt1 pt1a pt4a pt4 "c")<br />       (command "arc" pt1 "c" pt2 pt4b) ; 三点画弧<br />     )<br />   )<br />   (princ)<br /> )

mahuan1279

配个图，标注好点的序号，更好理解些。

uualice2020

画圆弧 ang 有问题

阿猪蛋

配个图，标注好点的序号，更好理解些。

jianxiucai

配个图，无图无真相