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赋值。我想将其保留为默认值。我该怎么做？
 
(defun c:setoutinsert (/ SUCESUOMSUSM SUAB SUAD MIDPT PLEN
                  PT01PT02 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。
 
我错过什么了吗？
页: 1 [2]
查看完整版本: 现场放样信息