请问如何删除pt1，pt2两点上的dimaligned标注？

669423907

看到http://bbs.mjtd.com/forum.php?mod=viewthread&tid=100077
里的帖子，于是有了这样一个想法：
(defun C:`Q()
(setq pt1 (getpoint "\n指定第一条尺寸界线原点:"))
(setq pt2 (getpoint pt1 "\n指定第二条尺寸界线原点:"))
(command "dimaligned" pt1 pt2)
(while (= 1 (getvar "cmdactive"))(command pause))
(command "dimbaseline" pt2 "" "")
?????
(princ))
望大师多多指教

天生笨拙的办法：
(defun C:`w()
(setq pt1 (getpoint "\n指定第一条尺寸界线原点:"))
(setq pt2 (getpoint pt1 "\n指定第二条尺寸界线原点:"))
(command "dimaligned" pt1 pt2)
(while (= 1 (getvar "cmdactive"))(command pause))
(setq ss (ssadd))
(setq ss (ssadd (entlast) ss))
(command "Select" ss "")
(sssetfirst nil ss)
(command "dimbaseline" pt2 "" "" "erase" ss "")
(princ))