[求助]如何给图形或文字加上属性 已解决

461045462

   在作图时，往往需要给图块或者文字加上属性。

  例如：好像花圃符号，鼠标放在那里，会显示————实体代码 215400  实体名称 花圃

  像路面材料的文字注记，水泥，鼠标放在那里，会显示————实体代码 160009  实体名称 交通类说明注记

  请问在lsp中加属性的语句该如何写？

  望高手指教

  在此先谢了

 

 

 已解决

Gu_xl

3. ;;;===================================================================
4. ;;; (gxl-AX:AddAtt objBlock Height  Mode  $Prompt  InsertionPoint  Tag  Value) 增加属性定义
5. ;|参数：
6.   Mode   acAttributeModeNormal 0 无选定的属性模式,可见
7.          acAttributeModeInvisible 1 不可见
8.         acAttributeModeConstant 2  固定
9.         acAttributeModeVerify 4  验证
10.         acAttributeModePreset 8  预置
11. |;
12. (defun gxl-AX:AddAtt (objBlock Height  Mode  $Prompt  InsertionPoint  Tag  Value)
13.   (vla-AddAttribute objBlock  Height  Mode  $Prompt  (vlax-3d-point InsertionPoint)  Tag  Value)
14.   )
15. ;;;用法：假设图中已有块定义“花圃”，要添加属性“实体代码”，默认值为""
16. ;;;获取块定义"花圃"对象
17. (setq obj (vla-get-block (vla-get-Blocks (vla-get-activedocument(vlax-get-acad-object))) "花圃"))
18. ;;;块添加属性定义
19. (gxl-AX:AddAtt obj 1  0  "实体代码"  '(0 0 0)  "实体代码"  "")
20. ;;;在图形中插入块
21. ;;;====================================ACTIVEX方法=============================================
22. ;;;插入块
23. ;;;(gxl-AX:InsertBlock InsPt Name Xscale Yscale ZScale Rotation) 插入图块,返回BlockREf
24. ;;;(gxl-AX:InsertBlock  (getpoint) "A1" 1 1 1 0)
25. (defun gxl-AX:InsertBlock (InsPt Name Xscale Yscale ZScale Rotation)
26.   (vla-InsertBlock (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object))) (vlax-3d-point InsPt) Name Xscale Yscale ZScale Rotation)
27.   )
28. ;;;块出入图形中
29. (setq obj (gxl-AX:InsertBlock (getpoint "\n插入点") "花圃" 1 1 1 0))
30. ;;;设置属性"实体代码"值为"100100"
31. (mapcar
32.     '(lambda (Att)
33.        (if (= (vla-get-TagString Att) "实体代码")
34. (vla-put-TextString Att "100100")
35.        )
36.      )
37.     (vlax-invoke Obj "GetAttributes")
38.   )

;;;=================================================================== ;;; (gxl-AX:AddAtt objBlock Height  Mode  $Prompt  InsertionPoint  Tag  Value) 增加属性定义 ;|参数：   Mode   acAttributeModeNormal 0 无选定的属性模式,可见          acAttributeModeInvisible 1 不可见         acAttributeModeConstant 2  固定         acAttributeModeVerify 4  验证         acAttributeModePreset 8  预置 |; (defun gxl-AX:AddAtt (objBlock Height  Mode  $Prompt  InsertionPoint  Tag  Value)   (vla-AddAttribute objBlock  Height  Mode  $Prompt  (vlax-3d-point InsertionPoint)  Tag  Value)   ) ;;;用法：假设图中已有块定义“花圃”，要添加属性“实体代码”，默认值为"" ;;;获取块定义"花圃"对象 (setq obj (vla-get-block (vla-get-Blocks (vla-get-activedocument(vlax-get-acad-object))) "花圃")) ;;;块添加属性定义 (gxl-AX:AddAtt obj 1  0  "实体代码"  '(0 0 0)  "实体代码"  "") ;;;在图形中插入块 ;;;====================================ACTIVEX方法============================================= ;;;插入块 ;;;(gxl-AX:InsertBlock InsPt Name Xscale Yscale ZScale Rotation) 插入图块,返回BlockREf ;;;(gxl-AX:InsertBlock  (getpoint) "A1" 1 1 1 0) (defun gxl-AX:InsertBlock (InsPt Name Xscale Yscale ZScale Rotation)   (vla-InsertBlock (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object))) (vlax-3d-point InsPt) Name Xscale Yscale ZScale Rotation)   ) ;;;块出入图形中 (setq obj (gxl-AX:InsertBlock (getpoint "\n插入点") "花圃" 1 1 1 0)) ;;;设置属性"实体代码"值为"100100" (mapcar     '(lambda (Att)        (if (= (vla-get-TagString Att) "实体代码") (vla-put-TextString Att "100100")        )      )     (vlax-invoke Obj "GetAttributes")   )

461045462

谢谢Gu_xl

我等会试试。

学习了。

谢谢

 

461045462

 

 由于刚学习编辑lsp，因此您给出的看不懂。

现在我附上编辑的一些语句，麻烦能否帮我修改？或指教要如何去修改它？

请高手指教

谢谢

看能否在输入时给它一个属性：实体代码 140009  实体名称 居民地名称标记

(defun c:bsx1(/ ss str p0 cl texth)   ;标属性

  (command "color" "bylayer")
  (setq texth "1.25")
  (setq cl (getvar "clayer"))
  (princ
    "\n1.砼/2.砼2/3.砼3/4.砖/5.砖2/6.砖3/7.简/8.破/9.施工地
       \n/10.空地/<last>"
  )
  (initget (+ 2 4))
  (setq ss (getint))
  (setvar "clayer" "jmd")
  (if (= ss nil)
    (setq ss dldw_ss)
  )
  (if (and (= ss nil) (= dldw_ss nil))
    (setq ss 2)
  )
  (if (/= ss nil)
    (setq dldw_ss ss)
  )
  (cond
    ((= ss 1) (setq str "砼"))
    ((= ss 2) (setq str "砼2"))
    ((= ss 3) (setq str "砼3"))
    ((= ss 4) (setq str "砖"))
    ((= ss 5) (setq str "砖2"))
    ((= ss 6) (setq str "砖3"))
    ((= ss 7) (setq str "简"))
    ((= ss 8) (setq str "破"))
    ((= ss 9) (setq str "施工地"))
    ((= ss 10) (setq str "空地"))    
    (t (setq str ""))
  )

 
  (COMMAND "_STYLE" "FZXDXJT" "方正细等线简体" "0" "1" "0" "N" "N")
  ;(COMMAND "_STYLE" "细等线体" "方正细等线简体" "0" "1" "0" "N" "N")
  ;(COMMAND "_STYLE" "正等线体" "宋体" "0" "1" "0" "N" "N")
  (setq p0 (getpoint "\nPoint:"))
  (command "text" "s" "FZXDXJT" "j" "mc" p0 texth "0" str)
  (command "chprop" "l" "" "t" "3000000.0" "") 
  (setvar "clayer" cl)
)