从multip中提取XYZ值

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

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

比如。（例如）

copy


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

不像我以前那样。。。。

copy


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

这就是你的意思吗？

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

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

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

但在我的Vlisp编辑器中，它们完全匹配。你试过这个程序吗？

结果如何？

[编程交流] 从multip中提取XYZ值

发表回复

精选推荐