请教，程序可以在cad2008下使用正常，在cad2012下不正常。
下面的程序，在cad2008下可以正常使用，在2012下使用后，下面的线和中间的线显示正常，上面的线没有。是哪里的问题。(defun c:htll (/ pt pt1 pt2 kd xz ktemp e1 e2)
(graphscr)
(initget 17)
(setq pt (getpoint"请输入铁路线起点:"))
(command "pline" pt "w" 0 0)
(print)
(setq pt1 pt)
(while (setq pt (getpoint pt "请输入铁路线下一点(回车=结束):"))
(print)
(setq pt2 pt)
(command pt)
)
(command)
(setq xz (entlast))
(setq kd 1.4)
(setq bk (/ kd 2))
(setq jd1 (angle pt1 pt2))
(setq jd2 (angle pt2 pt1))
(setq jd11 (+ 4.71239 jd1))
(setq jd21 (+ 4.71239 jd2))
(command "offset" bk (list xz pt1) (polar pt1 jd11 0.1) "")
(command "offset" bk (list xz pt1) (polar pt1 jd21 0.1) "")
(command "change" xz "" "p" "lt" "hidden" "")
(command "pedit" xz "w" kd "")
(princ)
)
关掉捕捉 啊啊啊，郁闷，多谢G版提醒，我一直以来都是把捕捉给关掉的，不知道哪个插件给打开后没有还原，手动关掉后正常。多谢多谢。
页:
[1]