新手需要LISP帮助

Nateer · 发表于 2022-7-5 20:38:51

你读了我最后的帖子吗？我想你肯定穿了我以前的衣服

ReMark · 发表于 2022-7-5 20:41:28

对不起，我没有忽视你。不得不在别处解决另一个问题。

完整发布lisp例程（或继续称之为“脚本”），以便我们都能看到它。谢谢

ReMark · 发表于 2022-7-5 20:45:36

这就是吉米·伯格马克如何处理获取层列表的任务。

http://www.jtbworld.com/lisp/layer-list.htm

hanhphuc · 发表于 2022-7-5 20:46:34

您好，欢迎来到cadtutor
日志文件如何？文本文件？？
那么你的任务就是从命令行复制？

我的理解是这很烦人，因为你需要按[Enter]直到它完成？
如果这一切结束，你下一步要做什么？

编辑：
建议，这只是一个粗略的代码，跳过步骤[Enter]（如果列表太长，则使用哪个普通层命令）

copy


(defun c:test (/ doc)
;hanhphuc 13.03.2015
;layer list in command line 
(setq doc (vlax-get-acad-object))
(prompt "\nName State Color Linetype Lineweight ")
(vlax-for obj
(foreach x '(activedocument layers) (setq doc (vlax-get doc x)))
  (terpri)
(princ
(apply 'strcat
(mapcar ''((x)(setq x (strcat (if (numberp x)(vl-princ-to-string x)x) " ")))
(mapcar ''((lay)(vlax-get obj lay)) '([color="red"]name layeron freeze lock plottable color linetype lineweight[/color]))))) [color="green"];<-- column sequence[/color]
)
(textpage)
(princ)
)
(vl-load-com)

Nateer · 发表于 2022-7-5 20:49:39

如果我理解正确

此代码段可能适用于：

copy

 (COMMAND "LOGFILEPATH" "C:\\Script\\Log")
(COMMAND "LOGFILEON")
(COMMAND "-XREF" "PATHTYPE" "*" "R")
(COMMAND "-SCALELISTEDIT" "?" "EXIT" ) 
(COMMAND "-purge" "Regapps" "*" "N")
(COMMAND "-purge" "ALL" "*" "N")
;(COMMAND "-layer" "T" "0" "")
;(COMMAND "-layer" "S" "0" "")
(COMMAND "-layer" "?" "*" "")
(COMMAND "AUDIT" "N") 
(COMMAND "VISRETAIN" "")
(COMMAND "PSLTSCALE" "")
(COMMAND "LTSCALE" "")
(COMMAND "MSLTSCALE" "")
(COMMAND "XDWGFADECTL" "0")
(COMMAND "BASE" "0,0,0")

或：

copy


(while (> (getvar "CMDACTIVE") 0)
      (command ""))

取决于所需的输入。

-大卫

ReMark · 发表于 2022-7-5 20:55:07

嗨，谢谢！我两个都试过了，但都没用。如果只是把它们贴在上面，是吗？

当做

Nateer · 发表于 2022-7-5 20:57:00

要在用户不必按enter键的情况下完成命令：

copy


(while (> (getvar "CMDACTIVE") 0)
      (command "_Yes"))

默认值（1-10）以及随后可能出现的任何属性输入均被接受。

David Bethel · 发表于 2022-7-5 21:00:41

Nateer · 发表于 2022-7-5 21:01:56

Hi and thanks! I tried both of them, but it didn't work. If it just was to paste them right in that is?

Regards

David Bethel · 发表于 2022-7-5 21:05:29

To complete a command without the user having to press the enter key :

copy

(command "_.INSERT" "M_Block" '(0 0 0))(while (> (getvar "CMDACTIVE") 0)      (command ""))

The default values ( 1 1 0 ) are accepted, as well as any attribute inputs that may follow.

[编程交流] 新手需要LISP帮助

发表回复

精选推荐