[求助]：求一个偏移能改变原来线的图层的LSP

243780513 · 发表于 2009-3-21 11:18:38

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

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

×

请教各位高手帮帮忙

tm010111 · 发表于 2009-7-28 21:53:58

(defun c:tt( / ent ents)
(setvar "cmdecho" 1)
(setq ent (entlast))
(command "_.offset" pause)
(while (= (getvar "cmdactive") 1)
(command pause)
(if (not (equal ent (entlast)))
(progn
(setq ents (entget (entlast)))
(setq ents (subst (cons 8 (getvar "clayer")) (assoc 8 ents) ents))
(entmod ents)
)
)
)
(princ)
)
作者不知道了，见谅！

苗春宝 · 发表于 2009-8-3 08:27:38

好东西啊

paladi · 发表于 2009-8-4 10:58:10

偏移的时候不是可以选择设置偏移后新线条变为当前图层吗？只要把想变成的图层置为当前即可啊。

243780513 · 发表于 2009-8-9 10:37:33

是偏移出来的线的图层不变，原来的线改变为指定图层

深圳董哥 · 发表于 2009-8-11 00:01:24

不过的功能

gysjy · 发表于 2009-8-11 08:06:55

最初由 243780513 发布
[B]是偏移出来的线的图层不变，原来的线改变为指定图层 [/B]

下述程序供参考：
[PHP](defun c:nn( / d lay p sn)
  (setq sn (entsel "\n选择要偏移的线:")
      d (getint "\n偏移距离<100>:")
      p (getpoint "\n偏移至哪一侧，点取一点：")
      lay (getvar "clayer")
  )
  (if (= d nil)(setq d 100))
  (command "offset" d sn p "")
  (command "chprop" sn "" "la" lay "")
  (princ)
)[/PHP]

243780513 · 发表于 2009-8-16 09:48:17

谢谢楼上的，不过还是有一点好用，如果能像一般偏移能连续偏移那样那就太好了，还是要谢谢楼主。

gysjy · 发表于 2009-8-18 09:09:09

下面的程序实现连续偏移：
[PHP](defun c:nn( / d lay p sn)
  (command "undo" "g")
  (if (= d0 nil)(setq d0 100))
  (princ "\n偏移距离<")(princ d0)
  (setq d (getint ">"))
  (if (= d nil)(setq d d0))
  (setq d0 d)
  (while (setq sn (entsel "\n选择要偏移的线:"))
(setq p (getpoint "\n偏移至哪一侧，点取一点：")
      lay (getvar "clayer")
)
(command "offset" d sn p "")
(command "chprop" sn "" "la" lay "")
  )
  (command "undo" "e")
  (princ)
)
[/PHP]

243780513 · 发表于 2009-8-19 20:08:02

谢谢。

zcenc · 发表于 2009-9-4 10:23:05

刷一下也还好吧，也不太慢！

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

[求助]：求一个偏移能改变原来线的图层的LSP

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

相关帖子

谢谢。