如何使点可见？

khoshravan · 发表于 2022-7-6 07:03:15

我使用GeoBuilder的LISP例程将点坐标导入CAD。显然已经完成了，但我看不出要点。
我如何使它们可见？

此外，我希望在单击“确定”后，会出现一条连接该点的线，但什么也没有发生。ACAD仅构建层。如何使点可见？

我在最初的帖子里也问了同样的问题
2012年9月14日，从AutoCAD中的文本文件txt导入坐标

Tharwat · 发表于 2022-7-6 07:10:37

这可能有效，但请确保首先解锁所有层。

copy


(defun c:PTvis (/ s i e)
 (if (setq s (ssget "_x" '((0 . "POINT") (60 . 1))))
   (repeat (setq i (sslength s))
     (setq e (entget (ssname s (setq i (1- i)))))
     (if (not (assoc 60 e))
       (entmod (append e (list (cons 60 0))))
       (entmod (subst (cons 60 0) (assoc 60 e) e))
     )
   )
 )
 (princ)
)

Lee Mac · 发表于 2022-7-6 07:19:40

@Tharwat，可以缩短为：

copy

(defun c:showpoints ( / i s )
   (if (setq s (ssget "_X" '((0 . "POINT") (60 . 1))))
       (repeat (setq i (sslength s))
           (entmod (append (entget (ssname s (setq i (1- i)))) '((60 . 0))))
       )
   )
   (princ)
)

Tharwat · 发表于 2022-7-6 07:25:24

当然，做得很好。

marko_ribar · 发表于 2022-7-6 07:31:53

在此之后（在上面发布的代码中），您可能需要检查当前处于活动状态的点样式。。。也许这就是为什么你一开始看不到要点。。。更改PDMODE sysvar。。。

M、 R。

Lee Mac · 发表于 2022-7-6 07:43:10

也许程序无法创建点？

khoshravan · 发表于 2022-7-6 07:46:25

对不起，如果我的问题听起来太新手。

我将上述代码复制到写字板中，并将其与lsp和vlx扩展一起保存，并将其命名为showpoint。
在cad内部，我使用appload命令加载上述例程。在底部，它显示两个都已成功加载。
但当我在cad中输入showpoint时，它会显示未知命令。

我如何使用这些例程？