增加autocad在文字處理上的功能(編輯修改稿)
2025-07-26 00:45 本頁面
【文章內容簡介】 fj2 zk jd) (setvar cmdecho 0) 。 (princ \n1. order: from top to button. from left to right) 。 (princ \n2. there is over a entity)(princ) (princ \n間距調整方式選擇如下:)(princ) (setq sj nil cj nil) (setq s1 (getint \n 1: )) (if (/ = s1 3) (progn (if (= s1 nil)(setq s1 1)) (if (= s1 1) (setq sj (getdist \n輸入文字水平間距值(或用鼠標點取):)) (setq cj (getdist \n輸入文字垂直間距值(或用鼠標點取):))) (setq fs (strcase (getstring \n選擇對齊方式(C中心/L左側/R右側/M中點) L : ))) (if (= fs M)(progn (mand osnap nea) (setq ss1 (getpoint \n文字起點: )) (setq ss2 (getcorner ss1 \n文字終點: )) (setq s2 (polar ss1 (angle ss1 ss2) (/ (distance ss1 ss2) 2))) (mand osnap none) ) (setq s2 (getpoint \n這組文字起點text location point:)) ) (setq x (car s2) y (cadr s2)) (princ \n按先后次序選取文字)(princ) (setq ss (ssget)) (setq n (sslength ss) index 0 i 0 j 0) (rep eat n (setq ent (entget (ssname ss index))) (if (= TEXT (cdr (assoc 0 ent))) (pr ogn (setq i (+ i 1)) ( if (= s1 1) (setq zb (car (CDR (assoc 10 (entget (ssname ss index)))))) (setq zb (CADR (cdr (assoc 10 (entget (ssname ss index)))))) ) (set q wb (cdr (assoc 1 (entget (ssname ss index)))) wg (cdr (assoc 40 (entget (ssname ss index)))) zk (cdr (assoc 41 (entget (ssname ss index)))) jd (cdr (assoc 50 (entget (ssname ss index)))) zx (cdr (assoc 7 (entget (ssname ss index)))) ) (set (read (strcat b (itoa i))) zb)。coordinate (set (read (strcat a (itoa i))) wb)。word (set (read (strcat c (itoa i))) wg)。hight (set (read (strcat d (itoa i))) zx)。word style (set (read (strcat e (itoa i))) zk)。
環(huán)評公示相關推薦
鄂ICP備17016276號-1