[文章]：大于1.1M画双开门,小于1.1M画单开门

szx025

; Draw all size door
(defun c:dd(/ ds point1 point2 point3 point4 point5 point6 )
  (setq ds (getint "Please input door size:"))
  (command "-osnap" "INT")
  (setq point1 (getpoint "Pick the nearest point"))
  (setq point2 (list (nth 0 point1) (+ 50 (nth 1 point1))))
  (setq point3 (list (nth 0 point1) (+ (* ds 100) (nth 1 point1))))
  (setq point4 (list (+ 50 (nth 0 point3)) (nth 1 point3)))
  (setq point5 (list (+ (- (* ds 100) 50) (nth 0 point4))
               (- (nth 1 point4) (- (* ds 100) 50))))
  (setq point6 (list (nth 0 point5) (- (nth 1 point5) 50 )))
  (command "pline" point1 "W" "0" "" point2 point3 point4 "arc" point5 "line" point6 "")
  (setq door (ssget "L"))
  (command "rectangle" point2 point4)
  (ssadd (entlast) door)
  (initget 1 "Rotate Mirror Quit")
  (setq input (getkword "Rotate\\Mirror\\Quit:"))
  (while (or (= input "Rotate")(= input "Mirror"))
   (cond
     ((= input "Rotate")
      (command "rotate" door "" point1 pause ))
     ((= input "Mirror")
      (command "mirror" door "" point1 pause "y"))
   )
   (initget "Rotate Mirror Quit")
   (setq input (getkword "Rotate\\Mirror\\Quit:")))
   (setvar "osmode" 33)
)

; Draw all size double door
(defun c:ddd(/ ds point1 point2 point3 point4 point5 point6 point7 point8 point9 )
  (setq ds (getint "Please input door size:"))
  (command "-osnap" "INT")
  (setq point1 (getpoint "Pick the nearest point"))
  (setq point2 (list (nth 0 point1) (+ 50 (nth 1 point1))))
  (setq point3 (list (nth 0 point1) (+ (* ds 50) (nth 1 point1))))
  (setq point4 (list (+ 50 (nth 0 point3)) (nth 1 point3)))
  (setq point5 (list (+ (- (* ds 50) 50) (nth 0 point4)) (- (nth 1 point4)
               (- (* ds 50) 50))))
  (setq point6 (list (+ (- (* ds 50) 50) (nth 0 point5)) (+ (- (* ds 50) 50)
               (nth 1 point5))))
  (setq point7 (list (+ 50 (nth 0 point6)) (nth 1 point6)))
  (setq point8 (list (nth 0 point7) (- (nth 1 point7) (- (* ds 50) 50))))
  (setq point9 (list (nth 0 point8) (- (nth 1 point8) 50)))
  (command "pline" point1 "W" "0" "" point2 point3 point4 "arc" point5 "angle" "-90"
           point6 "line" point7 point8 point9 "")
  (setq d-door (ssget "L"))
  (command "rectangle" point2 point4 )
  (ssadd (entlast) d-door)
  (command "rectangle" point6 point8)
  (ssadd (entlast) d-door)
  (initget 1 "Rotate Mirror Quit")
  (setq input (getkword "Rotate\\Mirror\\Quit:"))
  (while (or (= input "Rotate")(= input "Mirror"))
   (cond
     ((= input "Rotate")
      (command "rotate" d-door "" point1 pause ))
     ((= input "Mirror")
      (command "mirror" d-door "" point1 pause "y"))
   )
   (initget "Rotate Mirror Quit")
   (setq input (getkword "Rotate\\Mirror\\Quit:"))
  )
)
这是从本论坛下载的两个画门的程序,一个画单开门,一个画双开门,我想把两个程序合并为一个程序,合并后的程序这样运行,当输入的门宽大于1.1M画双开门,小于1.1M画单开门

zml84

按照楼主的要求，将两个函数合并后，如下：
[PHP]
(defun c:d (/ ds point1 point2 point3 point4 point5 point6 point7 point8 point9)
    (setq ds (getint "Please input door size:"))
    (command "-osnap" "INT")
    (setq point1 (getpoint "Pick the nearest point"))

    ;;判断部分
    (if        (< ds 110)
        ;; Draw all size door
        (progn
            (setq point2 (list (nth 0 point1) (+ 50 (nth 1 point1))))
            (setq
                point3 (list (nth 0 point1)
                             (+ (* ds 100) (nth 1 point1))
                       )
            )
            (setq point4 (list (+ 50 (nth 0 point3)) (nth 1 point3)))
            (setq point5 (list (+ (- (* ds 100) 50) (nth 0 point4))
                               (- (nth 1 point4) (- (* ds 100) 50))
                         )
            )
            (setq point6 (list (nth 0 point5) (- (nth 1 point5) 50)))
            (command "pline"  point1   "W"        "0"         ""
                     point2   point3   point4        "arc"         point5
                     "line"   point6   ""
                    )
            (setq door (ssget "L"))
            (command "rectangle" point2 point4)
            (ssadd (entlast) door)
        )
        ;; Draw all size double door
        (progn
            (setq point2 (list (nth 0 point1) (+ 50 (nth 1 point1))))
            (setq point3 (list (nth 0 point1)
                               (+ (* ds 50) (nth 1 point1))
                         )
            )
            (setq point4 (list (+ 50 (nth 0 point3)) (nth 1 point3)))
            (setq point5 (list (+ (- (* ds 50) 50) (nth 0 point4))
                               (- (nth 1 point4)
                                  (- (* ds 50) 50)
                               )
                         )
            )
            (setq point6 (list (+ (- (* ds 50) 50) (nth 0 point5))
                               (+ (- (* ds 50) 50)
                                  (nth 1 point5)
                               )
                         )
            )
            (setq point7 (list (+ 50 (nth 0 point6)) (nth 1 point6)))
            (setq point8
                     (list (nth 0 point7) (- (nth 1 point7) (- (* ds 50) 50)))
            )
            (setq point9 (list (nth 0 point8) (- (nth 1 point8) 50)))
            (command "pline"  point1   "W"        "0"         ""
                     point2   point3   point4        "arc"         point5
                     "angle"  "-90"    point6        "line"         point7
                     point8   point9   ""
                    )
            (setq door (ssget "L"))
            (command "rectangle" point2 point4)
            (ssadd (entlast) door)
            (command "rectangle" point6 point8)
            (ssadd (entlast) door)
        )
    )

    ;;编辑选项
    (initget 1 "Rotate Mirror Quit")
    (setq input (getkword "Rotate\\Mirror\\Quit:"))
    (while (or (= input "Rotate") (= input "Mirror"))
        (cond
            ((= input "Rotate")
             (command "rotate" door "" point1 pause)
            )
            ((= input "Mirror")
             (command "mirror" door "" point1 pause "y")
            )
        )
        (initget "Rotate Mirror Quit")
        (setq input (getkword "Rotate\\Mirror\\Quit:"))
    )
    (setvar "osmode" 33)
    (princ)
)
[/PHP]
另外：
1.尺寸选项最好设置一个默认选项，以方便交互；编辑选项亦是如此。
2.在计算点位坐标时，使用polar函数较好。
3.门窗桌椅之类，利用动态块插入的方法创建，更利于后续编辑修改。

szx025

谢谢楼上的朋友,问题已解决

zml84

试一试这个怎样？
[PHP]
(defun c:d (/ ds point1        point2 point3 point4 point5 point6 point7 point8
            point9)
    (setvar "CMDECHO" 0)
    (command "-osnap" "INT")
    (setq point1  (getpoint "点取第一点:")
          point11 (getpoint point1 "点取第二点:")
          ds          (/ (distance point1 point11) 100.0)
    )

    ;;判断部分
    (if        (<= ds 110)
        ;; Draw all size door
        (progn
            (setq point2 (list (nth 0 point1) (+ 50 (nth 1 point1))))
            (setq
                point3 (list (nth 0 point1)
                             (+ (* ds 100) (nth 1 point1))
                       )
            )
            (setq point4 (list (+ 50 (nth 0 point3)) (nth 1 point3)))
            (setq point5 (list (+ (- (* ds 100) 50) (nth 0 point4))
                               (- (nth 1 point4) (- (* ds 100) 50))
                         )
            )
            (setq point6 (list (nth 0 point5) (- (nth 1 point5) 50)))
            (command "pline"  point1   "W"        "0"         ""
                     point2   point3   point4        "arc"         point5
                     "line"   point6   ""
                    )
            (setq door (ssget "L"))
            (command "rectangle" point2 point4)
            (ssadd (entlast) door)
        )
        ;; Draw all size double door
        (progn
            (setq point2 (list (nth 0 point1) (+ 50 (nth 1 point1))))
            (setq point3 (list (nth 0 point1)
                               (+ (* ds 50) (nth 1 point1))
                         )
            )
            (setq point4 (list (+ 50 (nth 0 point3)) (nth 1 point3)))
            (setq point5 (list (+ (- (* ds 50) 50) (nth 0 point4))
                               (- (nth 1 point4)
                                  (- (* ds 50) 50)
                               )
                         )
            )
            (setq point6 (list (+ (- (* ds 50) 50) (nth 0 point5))
                               (+ (- (* ds 50) 50)
                                  (nth 1 point5)
                               )
                         )
            )
            (setq point7 (list (+ 50 (nth 0 point6)) (nth 1 point6)))
            (setq point8
                     (list (nth 0 point7) (- (nth 1 point7) (- (* ds 50) 50)))
            )
            (setq point9 (list (nth 0 point8) (- (nth 1 point8) 50)))
            (command "pline"  point1   "W"        "0"         ""
                     point2   point3   point4        "arc"         point5
                     "angle"  "-90"    point6        "line"         point7
                     point8   point9   ""
                    )
            (setq door (ssget "L"))
            (command "rectangle" point2 point4)
            (ssadd (entlast) door)
            (command "rectangle" point6 point8)
            (ssadd (entlast) door)
        )
    )

    ;;处理选项
    (command "rotate" door "" point1 point11)
    (princ "\n宽度：")
    (princ ds)
    (initget "Yes No")
    (if        (= "Yes" (getkword "\n是否镜像？[是(Y)/否(N)] <N>:"))
        (command "mirror" door "" point1 point11 "y")
    )
    (setvar "osmode" 33)
    (princ)
)
[/PHP]

szx025

非常好,不愧为高手
有点小问题,当在画门的位置有其它线段时,程序在画门时会出现错误,比如门的开启线弧度出现错误,可能是程序捕获了其它线段的点

zml84

通过控制捕捉设置可以解决楼上的此类问题。改进后如下所示：
[PHP]
(defun c:d (/ ds point1        point2 point3 point4 point5 point6 point7 point8
            point9)
    ;;保存系统变量设置
    (setq old_OS  (getvar "OSMODE")
          old_CMD (getvar "CMDECHO")
    )
   
    (setvar "CMDECHO" 0)
    (command "-osnap" "INT")
    (if        (setq point1 (getpoint "点取第一点:"))
        (if (setq point11 (getpoint point1 "点取第二点:"))
            (progn
                (setq ds (/ (distance point1 point11) 100.0)
                )
                ;;判断部分
                (setvar "OSMODE" 0)
                (if (<= ds 110)
                    ;; Draw all size door
                    (progn
                        (setq point2 (list (nth 0 point1)
                                           (+ 50 (nth 1 point1))
                                     )
                        )
                        (setq
                            point3 (list (nth 0 point1)
                                         (+ (* ds 100) (nth 1 point1))
                                   )
                        )
                        (setq point4 (list (+ 50 (nth 0 point3))
                                           (nth 1 point3)
                                     )
                        )
                        (setq point5 (list (+ (- (* ds 100) 50)
                                              (nth 0 point4)
                                           )
                                           (- (nth 1 point4)
                                              (- (* ds 100) 50)
                                           )
                                     )
                        )
                        (setq point6 (list (nth 0 point5)
                                           (- (nth 1 point5) 50)
                                     )
                        )
                        (command "pline"  point1   "W"            "0"
                                 ""          point2   point3   point4
                                 "arc"          point5   "line"   point6
                                 ""
                                )
                        (setq door (ssget "L"))
                        (command "rectangle" point2 point4)
                        (ssadd (entlast) door)
                    )
                    ;; Draw all size double door
                    (progn
                        (setq point2 (list (nth 0 point1)
                                           (+ 50 (nth 1 point1))
                                     )
                        )
                        (setq
                            point3 (list (nth 0 point1)
                                         (+ (* ds 50) (nth 1 point1))
                                   )
                        )
                        (setq point4 (list (+ 50 (nth 0 point3))
                                           (nth 1 point3)
                                     )
                        )
                        (setq point5 (list (+ (- (* ds 50) 50)
                                              (nth 0 point4)
                                           )
                                           (- (nth 1 point4)
                                              (- (* ds 50) 50)
                                           )
                                     )
                        )
                        (setq point6 (list (+ (- (* ds 50) 50)
                                              (nth 0 point5)
                                           )
                                           (+ (- (* ds 50) 50)
                                              (nth 1 point5)
                                           )
                                     )
                        )
                        (setq point7 (list (+ 50 (nth 0 point6))
                                           (nth 1 point6)
                                     )
                        )
                        (setq point8
                                 (list (nth 0 point7)
                                       (- (nth 1 point7) (- (* ds 50) 50))
                                 )
                        )
                        (setq point9 (list (nth 0 point8)
                                           (- (nth 1 point8) 50)
                                     )
                        )
                        (command "pline"  point1   "W"            "0"
                                 ""          point2   point3   point4
                                 "arc"          point5   "angle"  "-90"
                                 point6          "line"   point7   point8
                                 point9          ""
                                )
                        (setq door (ssget "L"))
                        (command "rectangle" point2 point4)
                        (ssadd (entlast) door)
                        (command "rectangle" point6 point8)
                        (ssadd (entlast) door)
                    )
                )

                ;;处理选项
                (command "rotate" door "" point1 point11)
                (princ "\n宽度：")
                (princ ds)
                (initget "Yes No")
                (if (= "Yes"
                       (getkword "\n是否镜像？[是(Y)/否(N)] <N>:")
                    )
                    (command "mirror" door "" point1 point11 "y")
                )
                (princ "\n成功完成!")
            )
        )
    )
    ;;恢复系统变量设置
    (setvar "CMDECHO" old_CMD)
    (setvar "OSMODE" old_OS)
    (princ)
)
[/PHP]

allan439

刚开始学，还不是看的很明白。。