[求助]一个极简单的LISP程序，帮忙看看：）

lei6699 · 发表于 2004-3-22 19:53:00

就是画一个荷载示意图： (Defun C:loadq ()
   (setvar "cmdecho" 1)
   (command "layer" "m" "loadq" "C" 2 "loadq" "")
   (command "_.line"
   (setq pt1 (getpoint "均布荷载起点a:"))
   (setq pt2 (getpoint "\n均布荷载终b:"))
   (setq pt3 (getpoint "\n均布荷载高度h:"))
   (setq pt4 (list (car pt1) (cadr pt3)))
   "c"
   )
   (setq h (distance pt2 pt3))
   (setq n (fix (/ (distance pt1 pt2) h)))
   (if (< n 6)
   (setq n 6)
   )
   (setq pt5 (list (car pt1) (+ (cadr pt4) (/ h 5))))
   (command "_.pline" pt1 "w" 0 (/ h 10) pt5 "w" 0 0 pt4 "")
   (setq ent (entlast))
   (command "array"
   ent
   ""
   ""
   ""
   (+ n 1)
   (/ (distance pt1 pt2) n)
   )
)
1。红色部分是画一个箭头，不知道为什么只有“头”，没有“尾巴”，如何修改？
2。里面的语句请帮忙修改一下，如开头怎么打开正交？
3。如果要想作为一个“对象”，而且附加扩展数据Q=36KN/m，应该怎么做？（因为这种荷载可能不只一个）
请帮忙想一个办法~~多谢~~

meflying · 发表于 2004-3-22 20:41:00

1、(setvar "orthomode" 1)2、你先用命令行试试看画一个箭头该怎么画。。。(注意各点的位置，不要搞错了）
3、要把谁作为一个对象？所有的箭头吗？
4、(setq pt2 (getpoint pt1...))

lei6699 · 发表于 2004-3-22 21:17:00

3。举个例子来说，我用pline花了一个箭头：
(Defun C:loadf ()
   (setvar "cmdecho" 1)
   (command "layer" "m" "loadf" "C" 3 "loadf" "")
   (command "linetype" "S" "BYLAYER" "")
   (setq fo (getpoint "选择集中力作用点:" ))
   (setq ft (getpoint "高度:" ))
   (setq fl (distance fo ft ))
   (if (null cal)(arxload"geomcal"))
   (setq fm (c:cal "(fo + ft) / 2"))
   (setq fe (c:cal "(fo +fm ) / 2"))
   (command "_.pline" fo "w" 0 (/ fl 10) fe "w" 0 0 ft "")
   ;(setvar "cmdecho" 1)
   (princ)
)
然后用（entget（entlast））可以得到一个对象，可以添加扩展数据，因为一次完成的
而上面的那个图，是由很多线段组成的，不知道给那个对象添加数据。。。。
N

[求助]一个极简单的LISP程序，帮忙看看：）

发表回复

精选推荐

浏览过的版块