社区 › Auto Lisp › 如何使点可见？

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

如何使点可见？

我使用GeoBuilder的LISP例程将点坐标导入CAD。显然已经完成了，但我看不出要点。
我如何使它们可见？
 
此外，我希望在单击“确定”后，会出现一条连接该点的线，但什么也没有发生。ACAD仅构建层。如何使点可见？
 
我在最初的帖子里也问了同样的问题
2012年9月14日，从AutoCAD中的文本文件txt导入坐标

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

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

(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，可以缩短为：
 
(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时，它会显示未知命令。
 
我如何使用这些例程？

Tharwat 发表于 2022-7-6 07:52:18

showpoint还是showpoints？

khoshravan 发表于 2022-7-6 07:57:25

 
谢谢我想念s

Tharwat 发表于 2022-7-6 08:03:40

 
没问题。
 
我的密码给你带来好运了吗？

查看完整版本: 如何使点可见？