请教如何让图形先显示.

meflying

(car selectcwx)？


看看函数返回值，SSGET和ENTSEL返回不同的，不可以想当然

sailorcwx

那应该怎么改呢?

meflying

不是让你看返回值了吗？


ssget返回的是选择集，从选择集中获得对象名不会不知道吧。。。SSNAME

sailorcwx

呵呵,写出来了,不过好像不是很理想,谢谢meflying指点
(defun pdYH(bnYH)
(setq pt1 (getpoint))
(setq selectcwx (ssget pt1))
(setq selectcwx (ssname selectcwx 0))
(setq selectcwx (entget selectcwx))
(setq layerYH (cdr (assoc 8 selectcwx)))
(setq bnYH(strcat "blocks/" bnYH))
(command "insert" (strcat loadcwx bnYH) pt1 "1" "1" pause)
(cond
((= layerYH "S-雨水管")(setq layerYH "S-雨水"))
((= layerYH "S-污水管")(setq layerYH "S-污水"))
((= layerYH "S-粪水管")(setq layerYH "S-粪水"))
((= layerYH "S-冷凝水管")(setq layerYH "S-冷凝水"))
)
(command "change" (entlast) "" "p" "la" layerYH "")
(princ)
)