请问论坛中有没有人有把块刷成与线平行的程序呀
本帖最后由 yangchao2005090 于 2018-7-25 22:03 编辑请问论坛中有没有人有把块刷成与线平行的程序呀
(defun c:FX (/ smd gmd ent text_ang ent_list)
(setq smd (getvar "snapmode")
gmd (getvar "gridmode")
)
(command "snapmode" "0")
(command "gridmode" "0")
(princ "\n选择源物体:")
(command "ucs" "ob" pause)
(setvar "UCSICON" 0)
(if (setq ent (entsel "选择目标文字:")
)
(progn
(setq text_ang (angle '(0 0 0) (getvar "UCSXDIR")))
(while (> text_ang (/ pi 2))
(setq text_ang (- text_ang pi))
)
(setq ent_list (entget (car ent)))
(setq ent_list (subst (cons 50 text_ang)
(assoc '50 ent_list)
ent_list
)
)
(entmod ent_list)
)
)
(setvar "UCSICON" 1)
(command "ucs" "p")
(setvar "snapmode" smd)
(setvar "gridmode" gmd)
(princ)
)
忘了是哪位网友的作品了。刷块、文字均可。 GamIng 发表于 2018-7-25 20:08
(defun c:FX (/ smd gmd ent text_ang ent_list)
(setq smd (getvar "snapmode")
gmd (getvar "gridmo ...
楼主要的是“块与线平行”，这个好像不对？ GamIng 发表于 2018-7-25 20:08
(defun c:FX (/ smd gmd ent text_ang ent_list)
(setq smd (getvar "snapmode")
gmd (getvar "gridmo ...
能增加一个功能吗 块平行于圆弧 楼主问题解决了的贴子居然只有发贴人可见，呵呵 GamIng 发表于 2018-7-25 20:08
(defun c:FX (/ smd gmd ent text_ang ent_list)
(setq smd (getvar "snapmode")
gmd (getvar "gridmo ...
谢谢。太感谢了，做规划效率提高了 Kye 发表于 2018-7-25 21:47
楼主问题解决了的贴子居然只有发贴人可见，呵呵
你看不见么 自贡黄明儒 发表于 2018-7-25 20:59
楼主要的是“块与线平行”，这个好像不对？
可以的可以的 [提问] txt数据处理求助，谢谢Gu_xl 版主和Andyhon __G版回复的这个贴前几天能看见，昨天就看不见内容了 自贡黄明儒 发表于 2018-7-25 20:59
楼主要的是“块与线平行”，这个好像不对？
大师，小虾米的世界没那么复杂。:lol GamIng 发表于 2018-7-26 09:31
大师，小虾米的世界没那么复杂。
:lol反正我就简单的小修改下，大的对我这种小虾米太难
页:
[1]
2