求程序，愿付费
下面的程序，在高版本cad2012中使用时候，遇到天正的文字，就导致cad崩溃，求高手修改之，如果能加上，自动平行后，和直线保持一定的距离就更好了，愿意付费求程序，我的qq37107054;;;;文字方向匹配，经过测试，支持天正文字，但在cad2012中天正文字会引起崩溃
;;;;不仅仅支持文字，还支持图块等其他图元
(defun c:JDPP (/ smd gmd ent text_ang ent_list)
(command "undo" "begin")
(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)
(command "undo" "end")(princ)
)
页:
[1]