Lisp插入块，但我有

woodman78 · 发表于 2022-7-5 19:43:26

大家好，

我有一个lisp将块插入到图形中。第一个块正确插入，但第二个块旋转1。我知道这与insert命令有关，但我无法解决问题。

(defun c:LegendBatch (/ laylist SUCE SUOM SUSM SUAB SUAD SUCL SUCR)
 
(setq SUCE (getvar "cmdecho"))
(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_SHEET_LAYOUT_Legend" "_C" "7" "CCC_SHEET_LAYOUT_Legend" "_LW" "0.3" "CCC_SHEET_LAYOUT_Legend" "" )
 (command "_-color"  "bylayer")
(setq laylist '(
("CCC_SERVICES_Existing_Council_Ducting" "Existing_Council_Ducting")
("CCC_SERVICES_Existing_Council_Ducting_Plant_Chamber" "Existing_Council_Ducting_Chamber_Legend")
)
)
(foreach l laylist
(if (and (tblsearch "LAYER" (car l))
          (setq n (findfile (strcat (cadr l) ".dwg")))
     )
   (command "_.-INSERT" n "\" "1" "1" "0")
 )
)
 (setvar "cmdecho"   SUCE)
 (setvar "orthomode" SUOM)
 (setvar "clayer"    SUCL)
 (setvar "osmode"    SUSM)
 (setvar "angbase"   SUAB)
 (setvar "angdir"    SUAD)
 (setvar "cecolor"    SUCR)
(princ))

运行命令后，命令行会显示以下内容：

copy

Command: LegendBatch _.-layer
Current layer:  "0"
Enter an option [?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Freeze/Thaw/LOck/Unlock/stAte/Description/rEconcile]: _M
Enter name for new layer (becomes the current layer) <0>: CCC_SHEET_LAYOUT_Legend Enter an option [?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Freeze/Thaw/LOck/Unlock/stAte/Description/rEconcile]: _C
New color [Truecolor/COlorbook] : 7
Enter name list of layer(s) for color 7 (white) <CCC_SHEET_LAYOUT_Legend>: CCC_SHEET_LAYOUT_Legend Enter an option [?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Freeze/Thaw/LOck/Unlock/stAte/Description/rEconcile]: _LW
Enter lineweight (0.0mm - 2.11mm): 0.3
Enter name list of layers(s) for lineweight 0.30mm <CCC_SHEET_LAYOUT_Legend>: CCC_SHEET_LAYOUT_Legend Enter an option [?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Freeze/Thaw/LOck/Unlock/stAte/Description/rEconcile]:
Command: _-color
Enter default object color [Truecolor/COlorbook] <BYLAYER>: bylayer
Command: _.-INSERT Enter block name or [?] <Existing_Council_Ducting_Chamber_Legend>: T:\drawing tools\autocad 2010_warning_do not modify\Existing_Council_Ducting.dwg
Units: Meters   Conversion: 1.00000000
Specify insertion point or [basepoint/Scale/X/Y/Z/Rotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 1 Enter Y scale factor <use X scale factor>: 1
Specify rotation angle <0>: 0
Command: _.-INSERT Enter block name or [?] <Existing_Council_Ducting>: T:\drawing tools\autocad 2010_warning_do not modify\Existing_Council_Ducting_Chamber_Legend.dwg
Units: Meters   Conversion: 1.00000000
Specify insertion point or [basepoint/Scale/Rotate]: Specify scale factor <1>: 1
Specify rotation angle <0>: 1
Command: 0 Unknown command "0".  Press F1 for help.
Command:

如果有人能为轮换问题提供解决方案，我将不胜感激。

谢谢
伍德曼78

Jman · 发表于 2022-7-5 20:03:47

伍德曼，
指定旋转角度：1
看起来你可能需要取下1，因为我认为它旋转了1度

woodman78 · 发表于 2022-7-5 20:21:35

是的，但是第一个块以0的旋转插入，它们都是由同一个例程插入的。

Lee Mac · 发表于 2022-7-5 20:37:02

更改：

copy

(command "_.-INSERT" n "\" "1" "1" "0")

收件人：

copy

(command "_.-INSERT" n "_s" "1" "_r" "0" "\")

根据块定义是否允许非均匀缩放，X和Y比例提示将有所不同。

woodman78 · 发表于 2022-7-5 20:49:19

谢谢李·麦克。再次救援。

[编程交流] Lisp插入块，但我有

发表回复

精选推荐