请问论坛中有没有人有把块刷成与线平行的程序呀

yangchao2005090

请问论坛中有没有人有把块刷成与线平行的程序呀

GamIng

(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 ...

能增加一个功能吗 块平行于圆弧

Kye

楼主问题解决了的贴子居然只有发贴人可见，呵呵

yangchao2005090

GamIng 发表于 2018-7-25 20:08
(defun c:FX (/ smd gmd ent text_ang ent_list)
  (setq        smd (getvar "snapmode")
        gmd (getvar "gridmo ...

谢谢。太感谢了，做规划效率提高了

yangchao2005090

Kye 发表于 2018-7-25 21:47
楼主问题解决了的贴子居然只有发贴人可见，呵呵

你看不见么

yangchao2005090

自贡黄明儒 发表于 2018-7-25 20:59
楼主要的是“块与线平行”，这个好像不对？

可以的可以的

Kye

[提问] txt数据处理求助，谢谢Gu_xl 版主和Andyhon    __G版回复的这个贴前几天能看见，昨天就看不见内容了

GamIng

自贡黄明儒 发表于 2018-7-25 20:59
楼主要的是“块与线平行”，这个好像不对？

大师，小虾米的世界没那么复杂。

yangchao2005090

GamIng 发表于 2018-7-26 09:31
大师，小虾米的世界没那么复杂。

反正我就简单的小修改下，大的对我这种小虾米太难