[编程申请]：能不能写一个另类的,关于剖断线的lisp?

xgwl · 发表于 2004-7-1 21:58:46

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

TSSD 的符号标注中有一个功能就是将一段线变成剖断线, 不知lisp能不能实现这个功能.?

lsjjm · 发表于 2004-7-2 03:58:16

ET工具-Draw-Breakline Symbol.

xgwl · 发表于 2004-7-2 05:04:40

楼上的! 我不是说画剖断线, 太多的程序有画剖断线的!et 的反而不觉得好! 我都说了"另类的".

lsjjm · 发表于 2004-7-2 07:04:59

最初由 xgwl 发布
[B]我不是说画剖断线... [/B]

是改成截断线吗?
[php]
(defun c:test ()
  (setvar "osmode" 0)
  (setq l (car (entsel)))
  (setq p0 (cdr (assoc 10 (entget l))))
  (setq pe (cdr (assoc 11 (entget l))))
  (vl-cmdf "erase" l "")
  (setq a0 0.6981317
   a (angle p0 pe)
   h (/ (getvar "dimscale") 4)
p1 (polar p0 a (- (/ (distance p0 pe) 2) h))
p2 (polar p1 (- a (/ pi 2)(- (/ a0 2)))(/ h 2 (sin (/ a0 2))))
p3 (polar p2 (+ a (- (/ pi 2)(/ a0 2)))(/ h (sin (/ a0 2))))
p4 (polar p1 a (* 2 h)))
  (vl-cmdf "pline" p0 p1 p2 p3 p4 pe "")
)
[/php]

xgwl · 发表于 2004-7-2 22:46:41

谢谢! 可以用了! 但还没完全象TSSD上的, 这个剖断线能不能比原线段再两边伸长一点,如果改墙端封口的线的话,就显得秃头秃脑的! 还有这个程序是1:1的,1:100的图,显得好小,能不能增设比例啊? 还有多选修改啊? 谢谢!

lsjjm · 发表于 2004-7-4 05:38:30

对不起, 我没有TSSD, 不知道那里的截断线是什么样子. 4楼给出的只是一个满足基本功能的程序.
而且每个用户的要求都不一样, 只好请班竹自己修改一下了.

账号		自动登录	找回密码
密码			立即注册

[编程申请]：能不能写一个另类的,关于剖断线的lisp?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块