现场放样信息

woodman78 · 发表于 2022-7-6 09:19:25

那么，是否有人在插入时使用lisp来增加块中的属性？我们的LeeMac旧版本的NumInc允许使用snap吗？
谢谢

Lee Mac · 发表于 2022-7-6 09:23:32

你看过我给你链接的描述了吗？

我在这里为大家引述：

Least · 发表于 2022-7-6 09:25:15

真是太好了，李！

Lee Mac · 发表于 2022-7-6 09:28:50

干杯最少

woodman78 · 发表于 2022-7-6 09:32:50

我承认没有。昨天我看到留言时正跑出办公室。谢谢

woodman78 · 发表于 2022-7-6 09:34:42

我想做的最后一部分是插入一个带有属性的块。我有一个lisp来插入它，但我想绕过reuqest为attrib赋值。我想将其保留为默认值。我该怎么做？

copy

(defun c:setoutinsert (/ SUCE  SUOM  SUSM SUAB SUAD MIDPT PLEN
                  PT01  PT02 a b Color INPT)
 (setq SUOM (getvar "orthomode"))
 (setq SUSM (getvar "osmode"))
 (setq SUAB (getvar "angbase"))
 (setq SUAD (getvar "angdir"))
 (setq SUCL (getvar "clayer"))
 (setq SUCR (getvar "cecolor"))
 (command "_.-layer" "_M" "CCC_LAYOUT_Setting_Out_info" "_C" "2" "CCC_LAYOUT_Setting_Out_info" "_LW" "0.3" "CCC_LAYOUT_Setting_Out_info" "" )
 (command "_-color"  "bylayer")
 (command "._-linetype"  "s"  "bylayer" "")
 (setq INPT (getpoint "\Get insertion point:"))
 (command "_.insert" "set_out_info" INPT "1" "1" "0")
 (setvar "angbase" 0.0000)
 (setvar "angdir"  0)
 (setvar "orthomode" 0)
 (setvar "osmode"    16383)
  ; (setvar "osmode" 0)
   (setvar "osmode" 16383)
 (setvar "orthomode" SUOM)
 (setvar "osmode"    SUSM)
 (setvar "angbase"   SUAB)
 (setvar "angdir"    SUAD)
 (setvar "clayer"    SUCL)
 (setvar "cecolor"   SUCR)
 (princ)
)

谢谢

Least · 发表于 2022-7-6 09:39:35

NumInc不是按你的要求做吗？http://lee-mac.com/numinc.html
只需确保要使用的块在图形中定义，然后离开。

如果没有，attdia变量可能会有所帮助？？

eldon · 发表于 2022-7-6 09:41:24

也许，在将一个属性块添加到图形中后，您可以勇敢地放弃lisp，转而进行多个副本

woodman78 · 发表于 2022-7-6 09:42:56

哇！哇！哇！这远远超出了我的舒适区！！！！。

只是一团糟。这听起来是个不错的选择。谢谢我希望这一切都能在一个程序中完成。

BIGAL · 发表于 2022-7-6 09:46:34

Woodman如果你的行为说明了为什么你不想继续增加块标签，你就不能列出十个第1部分来反驳你最初的要求。

我们的前civ3d是

每次运行检查自动使用的最后一个pt num并确认新的开始编号时，运行lisp1通过拾取pt和标签气球的位置来创建pt标签。

运行lisp two将所有放样块的所有ptno、x、y提取到csv文件。

运行lisp 3将csv作为可绘制表格带回dwg。

我错过什么了吗？

[编程交流] 现场放样信息

发表回复

精选推荐