做块的方式>>预览插入文字, 有更好的思路吗？???

yanshengjiang

(defun c:sn ()
  (south-wzzj "DMTZ" "水泥" "200009" "地貌注记" "sn")
)


(defun south-wzzj (la wenzi bianma shuoming mingling / h);;;   (vl-catch-all-apply
;;;    '(lambda()
  (princ (strcat shuoming ">>>" wenzi))
  (if (null (tblsearch "APPID" "SOUTH"))
    (progn
      (regapp "SOUTH")
    )
  )
  (if (and
        (null (ssget "x" '((2 . "gc00"))))
        (tblobjname "BLOCK" "gc00")
      )
    (vl-cmdf "purge" "b" "gc00" "y" "y")
  )
  (setvar "cmdecho" 0)
  (if (/= 0 (getvar 'userr1))
    (setq h (* (getvar 'userr1) 0.003))
    (setq h 1.5)
  )
  (if (null (tblobjname "BLOCK" "gc00"))
    (progn
      (entmake '((0 . "BLOCK") (2 . "gc00")
                (70 . 0)
                (10 0 0 0)
               )
      )
      (entmake (list '(0 . "TEXT") '(100 . "AcDbText") '(10 0 0 0)
                     (cons '40 h) (cons '1 wenzi) (cons 8 la) '(41 . 0.8) '
                     (7 . "hz") '(11 0 0 0) '(11 0 0 0) '(72 . 1) '
                     (73 . 2) (list -3 (list "SOUTH" (cons 1000 bianma)))
               )
      )
      (entmake '((0 . "ENDBLK")))
    )
  )
  (vl-cmdf "insert" "gc00" pause "1" "1" "0")
  (if (= "gc00" (cdr (assoc 2 (entget (entlast)))))
    (progn
      (vl-cmdf "_explode" (entlast))
      (vlax-invoke-method (vlax-get-or-create-object "WScript.Shell")
                          'sendkeys (strcat mingling "{Enter}")
      )
    )
  );;;       ))
  (prin1)
)

xtjd

1）grread + entmake
2）entmake + move

kozmosovia

块里面就一个文字，还插入就炸开，做块的意义何在？

yanshengjiang

kozmosovia 发表于 2024-10-3 09:36
块里面就一个文字，还插入就炸开，做块的意义何在？

预览+捕捉，。但效果不好。