求改正chatgpt 修改样式箭头的代码，这个执行无效，看看哪里错了？

ftmm

使用LISP（List Processing Language）来批量修改所有标注样式的标注箭头。以下是一种可能的代码示例：

2. (defun change-dim-arrows ()
   
3.   (vl-load-com)
   
4.   (if (not (setq ss (ssget ":L" '((0 . "DIMENSION")))))
   
5.     (prompt "\n没有找到标注对象！")
   
6.     (progn
   
7.       (setq arrow-style  "新的箭头样式名称") ; 替换为你想要设置的箭头样式名称
   
8.       
   
9.       (vlax-for obj (setq dim-objs (vl-remove-if-not 'vlax-etypep (mapcar 'vlax-ename->vla-object (vla-get-entities (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) 0)))) :vlax-true)
   
10.         (setq dim-style (vla-get-dimensionstyle obj))
    
11.         (vla-put-dimensionstyle obj (vla-add-dimensionstyle (vla-get-activedocument (vlax-get-acad-object)) arrow-style))
    
12.         (vla-delete dim-style)
    
13.       )
    
14.       
    
15.       (prompt "\n标注箭头样式已经批量修改！")
    
16.     )
    
17.   )
    
18. )
    
19. 
    
20. (change-dim-arrows)
    

(defun change-dim-arrows ()<br />   (vl-load-com)<br />   (if (not (setq ss (ssget ":L" '((0 . "DIMENSION")))))<br />     (prompt "\n没有找到标注对象！")<br />     (progn<br />       (setq arrow-style  "新的箭头样式名称") ; 替换为你想要设置的箭头样式名称<br />       <br />       (vlax-for obj (setq dim-objs (vl-remove-if-not 'vlax-etypep (mapcar 'vlax-ename->vla-object (vla-get-entities (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) 0)))) :vlax-true)<br />         (setq dim-style (vla-get-dimensionstyle obj))<br />         (vla-put-dimensionstyle obj (vla-add-dimensionstyle (vla-get-activedocument (vlax-get-acad-object)) arrow-style))<br />         (vla-delete dim-style)<br />       )<br />       <br />       (prompt "\n标注箭头样式已经批量修改！")<br />     )<br />   )<br /> )<br /> <br /> (change-dim-arrows)<br />

上述代码将会将所有标注对象的箭头样式更改为指定的新箭头样式。在代码中，你需要将`arrow-style`的值替换为你想要设置的箭头样式的名称。
上面代码，我就把 值改为"倾斜" 了....貌似不行
执行代码后，所有标注对象的箭头样式都会被批量修改为新的箭头样式。注意保存你的工作文件以确保修改结果生效。

ftmm

又有新代码，但是为何没用。把所有含有dim字样的样式箭头改掉，但是执行后并未修改.....
(defun c:DimArrows ( / DimSS )
  (setq MyArrow ".") ;; example "ArchTick" or "." for ClosedFilled
  (setq DimSS (ssget "_X" '((0 . "*DIM*"))) ) ;; select all entities that have 'DIM' in their type
  (command "dimoverride" "DimBlk" MyArrow "DimBlk1" MyArrow "DimBlk2" MyArrow "" DimSS "") ;; run the dimoverride command
)

ftmm

更加神奇的，cad的express有 标注导出和导入命令，但是这2个命令完全无效.....从2008到2020都有，但是都无效....无效的意思是导出可以，但是导入完全没效果.....

xyp1964

代码太高级了……

ftmm

xyp1964 发表于 2023-11-20 21:11
代码太高级了……

第二个应该很普通吧？

ftmm

求助！求助！
第二个应该很普通吧？