[编程申请]：画家装施工图立面框的LISP

ld80721

编程申请：画家装施工图立面框的LISP

点选P1再点选P2后，在局部平面图形下方合适位置对应出现Line线框，中间提示输入层高：（如图中2860）

wkq004

这个我看,我好像能做,但更详细的说明要求,就上上面一样多捕捉点图,让我能明确的知道要怎么做,我就帮你做,如果还有dcl对话框的需求,也可以.

ld80721

最初由 wkq004 发布
[B]这个我看,我好像能做,但更详细的说明要求,就上上面一样多捕捉点图,让我能明确的知道要怎么做,我就帮你做,如果还有dcl对话框的需求,也可以. [/B]

我找学院派的院长帮做了一个，但须加载通用函数，我是一直使用Ｒ１４长大的，需要一个能在Ｒ１４下使用的lisp,我只懂一点点，编不出来，望帮帮忙！
我现在把学院派的院长做的原码贴上，供你参考一下，帮我改改！
(defun c:qq ()
  (CMDLA0)
  (setq        NO1 (UREAL 7 "" "高度" NO1)
        p1  (getpoint "\n点1<退出>: ")
        p2  (getpoint p1 "\n点2<退出>: ")
        p3  (polar p1 (* pi 1.5) 1000.0)
        dx  (abs (- (car p1) (car p2)))
        p4  (xyp-get-Pt2XYZ p3 dx (* no1 -1.0) 0)
  )
  (xyp-MkLaCo "TEST" 1)
  (setvar "osmode" 0)
  (command "rectang" p3 p4)
  (command "explode" (entlast) "")
  (CMDLA1)
)




我的编程思路：
１．先点Ｐ１再点Ｐ２，目的是为为生成的巨型框确定长度（如图中２２００ＭＭ）
２．点选完Ｐ１，Ｐ２后，提示输入层高（此层高也就是巨型框的高度，如图中２８６０mm）
3.在原局部平面图形的下方１米处生成巨型框
４．需把生成的巨型框自动炸开成ＬＩＮＥ线和把颜色改为１号色
(command "explode" (entlast) "")

(command "._chprop" ss"" "c" "1" "")

cy956

通常这样的东西，要成组、要系统化才有效率，针对一个动作的简单组合效率不会高；可是程序的矛盾就在于，系统化了，就得约定，就得经验主义乃至教条主义；然后，没个性没创意啊等等，又得反经验主义和教条主义。。。。如此循环不断。

snsj

蔡老的语言很精辟啊：）

wkq004

(defun c:qq (/ os p1 p2 alf p3 p4 p5 p6 v2 color)
  (setq v2 (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq p1 (getpoint "\n第一个点: "))
  (setq p2 (getpoint p1 "\n第二个点: "))
  (grdraw p1 p2 -1 1)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)  
  (setq alf (angle p1 p2))
  (setq h (getdist "\n请输入高度:"))
  (setq p3 (polar p1 (+ alf (* pi 1.5)) 1000.0))
  (setq p4 (polar p2 (+ alf (* pi 1.5)) 1000.0))
  (setq p5 (polar p3 (+ alf (* pi 1.5)) h))
  (setq p6 (polar p4 (+ alf (* pi 1.5)) h))
  (setq color(getvar "cecolor"))
  (setvar "cecolor" "1")
  (command "line" p3 p4 p6 p5 p3 "")
  (setvar "cecolor" color)
  (command)
  (setvar "osmode" os)
  (setvar "cmdecho" v2)
  (princ)
)

hhy1985

真是高手云集！