分享：entmake创建单行文字

小万LISP

因占用空间小，显示速度快，所以特别偏爱单行文字+shx矢量字形。 所用代码如下：

• 
  
  •   (entmake
  •     (list
  •       '(0 . "TEXT")       ;图元类型：单行文字
  •       '(41 . 0.8)         ;宽度比例
  •       '(7 . "romans+hzdx")    ;文字样式
  •       (cons 1 "内容")       ;文字内容
  •       (cons 10 pt)         ;起点
  •       (cons 40 height)    ;文字高度
  •       (cons 8 "图层")      ;图层名
  •       (cons 62 颜色编号)        ;颜色，bylayer=256
  •       (cons 72 dz)         ;文字对正类型：0 左，1 中下
  •       (cons 50 0)         ;文字旋转角度
  •       (cons 51 0)         ;文字倾斜角度
  •     )
  •   )
    

jinan1913

跟着你学习lisp

小万LISP

jinan1913 发表于 2019-10-8 14:46
跟着你学习lisp

……额，我也是新手……

mocheng

一起学习学习

paulpipi

一起学习学习

sbwdx

老师你好，请问这个文字对正类型，可以设置成正中对齐嘛？组码怎么写啊

小万LISP

sbwdx 发表于 2019-11-2 16:57
老师你好，请问这个文字对正类型，可以设置成正中对齐嘛？组码怎么写啊

• (entmake
•   (list
•     '(0 . "TEXT")     ;图元类型：单行文字
•     '(41 . 0.8)       ;宽度比例
•     '(7 . "standard") ;文字样式
•     (cons 1 "内容")   ;文字内容
•     (cons 11 pt)      ;对齐点
•     (cons 40 height)  ;文字高度
•     (cons 8 "图层")   ;图层名
•     (cons 62 颜色编号);颜色，bylayer=256
•     (cons 72 1)       ;文字水平对正类型：0 左，1 居中
•     (cons 73 2)       ;文字垂直对正类型 2 = 居中对正
•     (cons 50 0)       ;文字旋转角度
•     (cons 51 0)       ;文字倾斜角度
•   )
• )
  

sbwdx

小万LISP 发表于 2019-11-3 08:54

(entmake

  (list

    '(0 . "TEXT")     ;图元类型：单行文字

谢谢老师