[试用]：平面图中插入窗

whfdchst

刚学lisp ,觉得很有趣，就编了这个程序；里面肯定有很多错误，欢迎高手指点迷津。谢谢！
感谢xyz_1964的大力支持，本程序作了修改。请大家试用，多提宝贵意见。

saoaduan

要指点迷津还要收钱，地球人怎么可以这样



最好发个演示上来

cy956

没看程序，只觉得1.34 KB,太小了。这样的功能如果完整应该至少几k至几十k。

whfdchst

功能少了点。我正在添加，谢谢多提意见。

雨箭风刀

可直接贴源码么？

whfdchst

(defun c:pmc1(/ p1 ss pa pb pc pd ww hh m1 m2 m3 m4 textp textw ts);定义函数，并设定所有变量为局部变量，不占内存
  (setvar "cmdecho" 0);关闭命令行的执行显示
  (setvar "blipmode" 0);清除图面上的虚点,相当于"redraw"命令
  (setq os (getvar "osmode"));取得該系統捕捉模式的设定值,以字串表示
  (while (setq p1 (getpoint "\nEnter basic point:"))
    (setq ss (getdist p1 "\nEnter left/low point:");指定窗的左下角点
          pa (polar p1 0 ss)
          ww (getdist pa  "\nEnter width:")
          hh (getdist pa  "\nEnter height:")
          pb (polar pa 0 ww)
          pc (polar pb (/ pi 2) hh)
          pd (polar pc pi ww)
    )
    (setvar "osmode" 0);設定該系統捕捉模式为关闭
    (command "pline" pa pb pc pd "c")
    (setq m1 (polar pa (/ pi 2) (/ hh 3))
          m4 (polar pd (* 3 (/ pi 2)) (/ hh 3))
          m2 (polar pb (/ pi 2) (/ hh 3))
          m3 (polar pc (* 3 (/ pi 2)) (/ hh 3))
    )
   (command "pline" m1 m2 "")
   (command "pline" m3 m4 "")
   (setq textp (polar pa 0 (/ ww 2))
         ts (getstring "\n请指定窗编号的高度: ")
         textw (getstring "\n请输入窗的编号: ")
   )
   (command "text" "j" "tc" textp ts 0 textw )
   (princ)
  )
  (setvar "osmode" os);还原該系統捕捉模式的值
  (prin1);消除一个空回应nil
   )
  (prompt "**********************<<C:PMC1.lsp>>***<<平面窗>>*******************************")
  (prin1)