北京豪沃克软件技术有限公司

会员登陆

业内资讯 => 绘制方钢LISP程序	【打印此页】【返回】

发布日期：[2013/8/13] 共阅[2391]次

用于绘制方钢,具体用法:

在cad命令行输入(ftdraw a b tt) a: 截面宽度 b:截面高度 tt:截面厚度

(defun listtovariantArray (ptsList / arraySpace sArray)

(setq arraySpace

(vlax-make-safearray vlax-vbdouble (cons 0 (- (length ptsList) 1) ) ) )

(setq sArray (vlax-safearray-fill arraySpace ptsList))

(vlax-make-variant sArray)

)

(defun ftdraw (a b tt / ptlst ptlstinner despt tmp mypoly mypoly1 acadObject AcadDocument mSpace )

(vl-load-com)

(setq acadObject (vlax-get-acad-object))

(setq acadDocument (vla-get-ActiveDocument acadObject))

(setq mSpace (vla-get-ModelSpace acadDocument))

(setq ptlst (list 0.0 0.0 (+ (/ a -2.0) (* 2.0 tt)) 0.0 (/ a -2.0) (* 2.0 tt) (/ a -2.0) (- b (* 2.0 tt)) (+ (/ a -2.0) (* 2.0 tt))

b (- (/ a 2.0) (* 2.0 tt)) b (/ a 2.0) (- b (* 2.0 tt)) (/ a 2.0) (* 2.0 tt) (- (/ a 2.0) (* 2.0 tt))

0.0 0.0 0.0 ) )

(setq ptlstinner (list 0.0

tt (+ (/ a -2.0) (* 2.0 tt)) tt (+ (/ a -2.0) tt) (* 2.0 tt) (+ (/ a -2.0) tt)

(- b (* 2.0 tt)) (+ (/ a -2.0) (* 2.0 tt)) (- b tt) (- (/ a 2.0) (* 2.0 tt)) (- b tt) (- (/ a 2.0) tt)

(- b (* 2.0 tt)) (- (/ a 2.0) tt) (* 2.0 tt) (- (/ a 2.0) (* 2.0 tt)) tt 0.0 tt )

)

(setq mypoly (vla-addLightWeightPolyline mspace (listtovariantArray ptlst)))

(setq mypoly1 (vla-addLightWeightPolyline mspace (listtovariantArray ptlstinner)))

(setq tmp (- 0.0 (/ (sin (/ pi 8.0)) (cos (/ pi 8.0)))))

(vla-SetBulge mypoly 1 tmp)

(vla-SetBulge mypoly 3 tmp)

(vla-SetBulge mypoly 5 tmp)

(vla-SetBulge mypoly 7 tmp)

(vla-SetBulge mypoly1 1 tmp)

(vla-SetBulge mypoly1 3 tmp)

(vla-SetBulge mypoly1 5 tmp)

(vla-SetBulge mypoly1 7 tmp)

(setq despt (getpoint "\nSelect a point to place the profile＆#58"))

(vla-move mypoly (listtovariantArray (list 0.0 0.0 0.0)) (listtovariantArray despt))

(vla-move mypoly1 (listtovariantArray (list 0.0 0.0 0.0)) (listtovariantArray despt))

; (vla-offset mypoly tt)

(vlax-release-object mspace)

(vlax-release-object acadDocument)

(vlax-release-object acadObject)

)


	【打印此页】【返回】