如何选择块内直线并使其亮显

jam

就像cad的centerline命令一样，可以直接选择块内直线并亮显
有大神知道怎么做到吗
我用了redraw不行

自贡黄明儒

直线好办呀，用nentsel选择直线，求得端点，把端点转到块外，然后用grdraw画 这两个端点就可以了。

jam

自贡黄明儒 发表于 2023-2-21 16:46
直线好办呀，用nentsel选择直线，求得端点，把端点转到块外，然后用grdraw画 这两个端点就可以了。

大佬可以帮我看下，为什么我这段代码显示错误吗？
(defun c:CD ()
        (setq e (car (nentsel)))
        (print (vla-get-Length (vlax-ename->vla-object e)))
        (setq p-start (vla-Get-StartPoint (vlax-ename->vla-object e)))
        (setq p-end (vla-Get-EndPoint (vlax-ename->vla-object e)))  
        (setq lst (list
                                                        (append (vlax-SafeArray->List (vlax-Variant-Value p-start)) '(0.0))
                                                        (append (vlax-SafeArray->List (vlax-Variant-Value p-end)) '(0.0))
                                                ))
        (grdraw (cadr lst) (caddr lst) 1)
)