JPlanera 发表于 2022-7-5 16:11:16

不，不。假期让我心情不好。很抱歉，我会更加专业。如果我觉得有必要取笑autocad命令，将在其各自的位置启动一个专用线程。。这给了我一个想法。。

Tharwat 发表于 2022-7-5 16:15:56

看看这个。。。
 

(defun c:THex (/ fNme ss)
; THARWAT 2010
(if (and(setq fNme (open "D:/Block-coordinates.txt" "w"))
          (setq ss (ssget "_:L" '((0 . "INSERT"))))
      )
   (
    (lambda (i / ss1 e pt1 )
      (while
   (setq ss1
          (ssname ss (setq i (1+ i))))
   (setq e
      (entget ss1))
         (setq pt1
          (cdr (assoc 10 e)))
            
   (write-line
   (strcat(rtos (car pt1) 2)
             "," (rtos (cadr pt1) 2)
               ","(rtos (caddr pt1) 2))
   fNme)
         )
      )
   -1
   )
(princ)
)
   (close fNme)
(princ "\n Written by Tharwat")
(princ)
)

 
祝你好运
 
塔瓦特

alanjt 发表于 2022-7-5 16:17:50

你在哪里写代码？你的格式让我头疼。

Tharwat 发表于 2022-7-5 16:21:59

 
我刚在办公室写完。
 
它们很简单，你当然知道，那么头痛是从哪里来的呢？
 
谢谢
 
塔瓦特

alanjt 发表于 2022-7-5 16:24:59

格式。 
我的意思是，你用什么程序写代码？

Tharwat 发表于 2022-7-5 16:29:30

随附的带有Autocad的Vlisp编辑器。（vlide）

alanjt 发表于 2022-7-5 16:31:34

查看格式选择按钮。这是你的代码，我只是说，它非常难阅读。

Tharwat 发表于 2022-7-5 16:36:10

是因为这种无序的方式吗？我的意思是，每个句子都应该排成一行，以便让一些人能够很好地阅读？
 
比如。（例如）

(setq pt (getpoint "\n Specify Point :"))

 
不像我以前那样。。。。
 

(setq pt (getpoint "\n Specify Point :"))

 
这就是你的意思吗？

alanjt 发表于 2022-7-5 16:37:16

 
不，看看你的代码。帕伦夫妇不匹配，他们甚至没有道理。也许这只是你使用标签和论坛代码括号的结果，它们不能很好地工作。

Tharwat 发表于 2022-7-5 16:42:39

但在我的Vlisp编辑器中，它们完全匹配。你试过这个程序吗？
 
结果如何？
页: 1 [2]
查看完整版本: 从multip中提取XYZ值