[编程申请]：申请自动布置自动喷水喷头

wxmzhlwxm

很多专业软件，不能满足不规则房间喷头布置要求，一般设计人员都要先画辅助线，然后在辅助线交点布置圆，能不能编制一个LISP，自动识别直线交点，并在交点处自动绘制可自定半径大小的圆。

zxq0220

[php]
(DEFUN C:TEST ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(PRINC "\n选择直线 :")
(IF (SETQ SS (SSGET)) (PROGN
  (SETQ D (GETDIST "\n圆半径 :"))
  (SETQ N -1 SL (SSLENGTH SS))
  (WHILE (< N (- SL 1))
   (SETQ ENT (ENTGET (SSNAME SS (SETQ N (1+ N))))
         PT1 (CDR (ASSOC 10 ENT))
         PT2 (CDR (ASSOC 11 ENT))
         I N)
   (WHILE (< I (- SL 1))
    (SETQ ENT1 (ENTGET (SSNAME SS (SETQ I (1+ I))))
          PT3 (CDR (ASSOC 10 ENT1))
          PT4 (CDR (ASSOC 11 ENT1))
          PT5 (INTERS PT1 PT2 PT3 PT4 T))
    (IF PT5 (COMMAND "CIRCLE" PT5 D))
   )
  )
))
(PRINC)
)
[/php]

wxmzhlwxm

谢谢