怎么改变动态块，不同的图形（已解决）

bbbxxxccclt

   举个例子就是一个动态块，不如是一个汽车的块，可以选着比如小轿车、货车、叉车等等的块，怎么用lisp控制选择比如小轿车或货车；请高手帮忙，一点头绪都没有；

longer88

我也想知道。

yangjian001

做一个热心并受欢迎的人

lisperado

如果车名称和方块名称一致应该可以过滤名称吧

(defun c:tt ( / s o)
(prompt "\n选取动态块 ")
(if (setq s (ssget ":E:S" '((0 . "INSERT"))))
(progn (alert (vlax-get (setq o (vlax-ename->vla-object  (ssname s 0))) 'effectivename) )
;; (LM:setdynpropvalue 物件 属性 值 ) ;; 不是很明白“控制选择”，改变动态值？请参考LeeMac大师函数
)

  (alert "\n选空或错误?")
  )
  (princ)
  )

liuqz6

可以参照这个附件的做法

线路板

我也想知道。

bbbxxxccclt

lisperado 发表于 2018-10-2 11:18
如果车名称和方块名称一致应该可以过滤名称吧

(defun c:tt ( / s o)

可能我描述的不是很清楚，比如做了一个动态块，这个块含有4个不同的车图像（汽车/货车/小轿车/叉车），这个块插入图中后，有个下拉箭头选择不同的名称就出现不同车图像（其实就是不同名称显示的不同）；现在想的是用lisp插入块，并选择好车子名称。

kqqt6236

要怎么控制？

bbbxxxccclt

kqqt6236 发表于 2018-10-3 09:02
要怎么控制？

在CAD执行命令时，可以选择车型，就可以选择不同的车，插入的块就以不同的车型出现

lisperado

bbbxxxccclt 发表于 2018-10-3 12:59
在CAD执行命令时，可以选择车型，就可以选择不同的车，插入的块就以不同的车型出现

;o : 动态块
;i  = 整数值，第几位置nth来代替‘可见度’名称，不必记名称更具通用性 :)
;0=默认，1，2，3 或随意其它数值等等。。。

(defun vis-walk        (o i / a v)
  ;lisperado
  (foreach x (vlax-invoke o 'getdynamicblockproperties)
            (and (= (vla-get-propertyname x) "Visibility")
             (setq a  (vlax-get x 'AllowedValues)
                   v (nth (rem (abs i) (length a)) a)
                   )
             (vlax-put x 'value v)
             )
    )
  v
  )

；如有已知选择车型，可对照表位置
(vis-walk blk (vl-position "Audi" '("BMW" "Ferarri" "Audi" "Mini Cooper")))

；如果不清楚名称，随意数值
(vis-walk blk 8)

bbbxxxccclt

lisperado 发表于 2018-10-3 15:17
;o : 动态块
;i  = 整数值，第几位置nth来代替‘可见度’名称，不必记名称更具通用性 :)
;0=默认，1，2 ...

谢谢 非常感谢！
刚开始运行 返回nil 没有什么反应
我把“visibility” 改为“可见性1” 后，就可以了，运行正常了
我是菜鸟中菜鸟，你的函数我怎么都查不到啊；

marting

bbbxxxccclt 发表于 2018-10-3 17:24
谢谢 非常感谢！
刚开始运行 返回nil 没有什么反应
我把“visibility” 改为“可见性1” 后，就可以了 ...

是VLISP函数，具体可看看

VL开头的函数到底有哪些？ 看看就知道了

14 个回复 - 1132 次查看

所有的VL开头的函数都在这了,2323个函数 (defun c:get-vl-func () (setq a (atoms-family 1)) (setq        b (mapcar '(lambda (x) (if (xdrx_string_regexps "^vl(.*)-" x) (strcase x t) ...

2016-11-26 00:56 - newer - A/VLISP

bbbxxxccclt

marting 发表于 2018-10-3 17:32
是VLISP函数，具体可看看

VL开头的函数到底有哪些？ 看看就知道了14 个回复 - 1132 次查看所有的VL开 ...

学VLISP好难，这么多函数，知道名字也不会用，哈哈

newer

bbbxxxccclt 发表于 2018-10-3 18:25
学VLISP好难，这么多函数，知道名字也不会用，哈哈

学什么都在于理解先，理解了，就好用了。函数都有手册，用不着背，VLISP编辑器也会自动帮你弹出函数的拼写。关键是要理解对象的层次结构，知道什么去手册的哪个部分找说明。

lisperado

bbbxxxccclt 发表于 2018-10-3 17:24
我是菜鸟中菜鸟，你的函数我怎么都查不到啊；

这VL基本函数在（请参考开发帮助：‘V’字母）‘倒灌’法，无论菜鸟或大师学VLISP必知！
(vlax-dump-object blk t)

; IAcadBlockReference: AutoCAD Block Reference Interface
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00d077b4>
;   Document (RO) = #<VLA-OBJECT IAcadDocument 08ad0420>
;   EffectiveName (RO) = "TEST"
;   Handle (RO) = "B06"
;   HasAttributes (RO) = -1
;   Ha**tensionDictionary (RO) = -1
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 170ebc64>
;   InsertionPoint = (-67.7083 116.539 0.0)
;   InsUnits (RO) = "Unitless"
;   InsUnitsFactor (RO) = 1.0
;   IsDynamicBlock (RO) = -1
;   Layer = "0"
;   Linetype = "ByLayer"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Material = "ByLayer"
;   Name = "*U9"
;   Normal = (0.0 0.0 1.0)
;   ObjectID (RO) = 2130668016
;   ObjectName (RO) = "AcDbBlockReference"
;   OwnerID (RO) = 2130255288
;   PlotStyleName = "ByLayer"
;   Rotation = 0.0
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 170ebbf0>
;   Visible = -1
;   XEffectiveScaleFactor = 1.0
;   XScaleFactor = 1.0
;   YEffectiveScaleFactor = 1.0
;   YScaleFactor = 1.0
;   ZEffectiveScaleFactor = 1.0
;   ZScaleFactor = 1.0
; Methods supported:
;   ArrayPolar (3)
;   ArrayRectangular (6)
;   ConvertToAnonymousBlock ()
;   ConvertToStaticBlock (1)
;   Copy ()
;   Delete ()
;   Explode ()
;   GetAttributes ()
;   GetBoundingBox (2)
;   GetConstantAttributes ()
;   GetDynamicBlockProperties ()
;   GetExtensionDictionary ()
;   GetXData (3)
;   Highlight (1)
;   IntersectWith (2)
;   Mirror (2)
;   Mirror3D (3)
;   Move (2)
;   ResetBlock ()
;   Rotate (2)
;   Rotate3D (3)
;   ScaleEntity (2)
;   SetXData (2)
;   TransformBy (1)
;   Update ()

多谢marting大师出手协助
晓东有这么多强大函数！太棒了！学习学习
(xdrx_string_regexps "^vl(.*)-" x) (strcase x t) ...