请问如何同时在多条线段（PL线或者直线）定距插入块？

sotop · 发表于 2013-4-23 17:15

请问如何同时在多条线段（PL线或者直线）定距插入块？
平时采用ME命令，只可以针对一条线进行处理，请问有什么软件或者插件可以实现这个功能？
需要同时对多条线段进行处理。

michaelbomo · 发表于 2022-9-7 15:11

1993063 发表于 2013-5-4 00:27
(defun c:tt ( / *error* ans b cmdecho d e n ss)
(defun *error* (s)
(setvar 'cmdecho cmdecho) ...

我是新手，我刚才复制了您这段代码，保存了LSP文件，请问：加载后，输入什么指令，可以开启这个功能呢？谢谢了

michaelbomo · 发表于 2022-9-7 15:02

能用ME插入指定位置块，我觉已经是高手了，帮我解决了一个大难题。我现在也需要一个插件：批量插入块（在若干条直线的中心点上），而且可以对齐直线。

依然小小鸟 · 发表于 2018-10-13 22:28

不错的帖子顶一下

Gu_xl · 发表于 2013-4-23 21:05

(defun c:tt (/ cmdecho *error* d ss n e)
(defun *error* (s)
(setvar 'cmdecho cmdecho)
(princ s)
)
(setq cmdecho (getvar 'cmdecho))
(setvar 'cmdecho 0)
(setq d (getdist "\n输入定距:"))
(while (not
(tblobjname "block" (setq b (getstring "\n输入块名称:")))
)
)
(if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
(repeat (setq n (sslength ss))
(setq e (ssname ss (setq n (1- n))))
(command "measure" e "b" b "y" d)
)
)
(setvar 'cmdecho cmdecho)
(princ)
)

sotop · 发表于 2013-4-23 22:52

我承认，你是高手，你的回答就是我想要的答案，非常感谢！
如果可能，能不能在这个程序中加入一步“是否对齐块和对象？[是(Y)/否(N)] <Y>: ”，这个是在ME命令中使用到的，再次谢谢！

sotop · 发表于 2013-4-23 22:52

补充一下，这是AUTOCAD中ME 的命令

Gu_xl · 发表于 2013-4-23 23:17

我承认，你的要求我可以做到！如果可能，请你自己动动手！;)

sotop · 发表于 2013-4-23 23:23

我是新新手，目前还不敢动手，只能先向您学习了，谢谢，请多多指教！

sotop · 发表于 2013-4-24 09:07

高手，还请你指教啊，我都从昨晚等到现在了。

1993063 · 发表于 2013-5-4 00:27

本帖最后由 1993063 于 2013-5-3 06:29 编辑

(defun c:tt ( / *error* ans b cmdecho d e n ss)
  (defun *error* (s)
(setvar 'cmdecho cmdecho)
(princ s)
  )
  (setq cmdecho (getvar 'cmdecho))
  (setvar 'cmdecho 0)
  (setq d (getdist "\n输入定距:"))
  (initget "Y N ")
  (setq ans (cond ((getkword "\n对齐线[(Y)是/(N)否] <对齐>: "))("Y")))
  (while (not (tblobjname "block" (setq b (getstring "\n输入块名称:")))))
  (if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
(repeat (setq n (sslength ss))
   (setq e (ssname ss (setq n (1- n))))
   (command "measure" e "b" b ans d)
)
  )
  (setvar 'cmdecho cmdecho)
  (princ)
);;多玩玩,多动动

sotop · 发表于 2013-5-4 02:45

试过了，可以使用，就是我想要的，非常感谢！

zwf100 · 发表于 2015-6-6 22:45

高手，突然觉得这个程序很有用

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

[讨论] 请问如何同时在多条线段（PL线或者直线）定距插入块？

浏览过的版块