wline 发表于 2024-7-22 10:14:44

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

(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 发表于 2024-7-22 10:36:08

GPT的问题请让GPT去回答。

MZ_li 发表于 2024-7-22 11:01:12

你可真行:lol

wzs07 发表于 2024-7-22 18:18:04

gpt对于autolisp还早

天命 发表于 2024-7-22 18:22:08

对于小问题GPT还是可以的

wline 发表于 2024-7-22 20:58:16

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

{:1_1:}有没有可能是我自己东拼西凑的

wline 发表于 2024-7-22 20:59:19

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

哥，我自己窜的，不是gpt

wline 发表于 2024-7-22 21:00:32

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

我比GPT还水，不敢让他弄

Bao_lai 发表于 2024-7-22 22:13:56

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

那你也同样可以试试GPT

qazxswk 发表于 2024-7-22 23:21:48

你if的基本用法都没有掌握。
页: [1]
查看完整版本: 麻烦哪位大哥帮忙看看程序哪里出了问题啊？谢谢