麻烦哪位大哥帮忙看看程序哪里出了问题啊？谢谢

wline

(defun c:ttv ()  
  (if (setq OBJ  (vlax-ename->vla-object (car (entsel))))
;;获取动态块的属性
(setq PROS (vlax-invoke OBJ 'getdynamicblockproperties))
;;;----------------------------------------------------------
;;获取属性名
(mapcar '(lambda (V) (vlax-get V 'propertyName)) PROS)
;;获取属性是否为只读
(mapcar 'vla-get-readOnly PROS)
;;获取属性是否显示
(mapcar 'vla-get-show PROS)
;;获取所有属性的允许值
(mapcar '(lambda (V) (vlax-get V 'allowedValues)) PROS)
;;获取所有属性的当前值
(mapcar '(lambda (V) (vlax-get V 'Value)) PROS))  
    (progn  
      (setq pt (getpoint "\n选择文字基点:"))  
      (setq name_block (cdr (assoc 2 en_data)))  
      ; 创建TEXT实体，使用pt作为基点，并设置为右对齐（如果需要）  
      (entmake (list  
                '(0 . "TEXT")  
                (cons 10 pt) ;   
                (cons 1 name_block)  
                (cons 40 350) ;
                (cons 72 2) ; 右对齐
                (cons 11 pt)
                ))  
      ; (princ) ; 如果不需要在命令行输出空行，可以注释掉  
    )  
    (princ "\n没有选择有效的图块。")  
  
  ; (princ) ; 结尾的换行符也不是必要的，但如果需要可以保留  
  (princ) ; 输出一个空行到命令行，确保命令结束清晰（如果需要）  
)

Bao_lai

GPT的问题请让GPT去回答。

MZ_li

你可真行

wzs07

gpt对于autolisp还早

天命

对于小问题GPT还是可以的

wline

Bao_lai 发表于 2024-7-22 10:36
GPT的问题请让GPT去回答。

有没有可能是我自己东拼西凑的

wline

wzs07 发表于 2024-7-22 18:18
gpt对于autolisp还早

哥，我自己窜的，不是gpt

wline

天命 发表于 2024-7-22 18:22
对于小问题GPT还是可以的

我比GPT还水，不敢让他弄

Bao_lai

wline 发表于 2024-7-22 20:58
有没有可能是我自己东拼西凑的

那你也同样可以试试GPT

qazxswk

你if的基本用法都没有掌握。