请问用entmake在指定位置生成对应文字的代码怎么写？谢谢～

逗亦斗霸

例如：文字1、文字6、文字8和坐标a、b、d，文字和坐标都是无规律的，我想指定在a生成文字1、c生成文字6、d生成文字8，现在只会一个entmake生成一段文字的写法，数量多的话太麻烦了，请问怎么写这个变量？谢谢～

lee50310

逗亦斗霸 发表于 2024-12-30 09:23
这段代码我已保存好，谢谢啦~另外请问一下entmake生成圆和填充可以用这种对应形式生成吗？

entmake填充代碼 論壇這裡有 ,請點選下面連結:
[源码] entmake填充

1. ;;创建圆
   
2. ;;例: (make:circle "0" '(0 0 0) 30 6)
   
3. 
   
4. (defun make:circle(lay ipt rad col)
   
5. (entmake (list (cons 0 "CIRCLE") ;
   
6.                (cons 6 "BYLAYER")
   
7.                (cons 8  lay)  ;圖層
   
8.                (cons 10 ipt)  ;插入點
   
9.                (cons 40 rad)  ;半徑
   
10.                (cons 62 col)  ;顏色
    
11.                (cons 210 (list 0.0 0.0 1.0))))
    
12. )
    

;;创建圆<br /> ;;例: (make:circle "0" '(0 0 0) 30 6)<br /> <br /> (defun make:circle(lay ipt rad col)<br /> (entmake (list (cons 0 "CIRCLE") ;<br />                (cons 6 "BYLAYER")<br />                (cons 8  lay)  ;圖層<br />                (cons 10 ipt)  ;插入點<br />                (cons 40 rad)  ;半徑<br />                (cons 62 col)  ;顏色<br />                (cons 210 (list 0.0 0.0 1.0))))<br /> )<br />

lee50310

逗亦斗霸 发表于 2024-12-27 14:30
感谢版主指点！这种写法也是同样的疑问，对正方式'(71 . 1) '(72 . 1) '(73 . 2)要怎么添加进去啊？

1. ;;--------------------------------------------------------- -------   
   
2. (defun c:tt()
   
3. (mapcar 'set '( a b d) (list '(634.061 61.7639 0.0) '(634.061 58.2639 0.0) '(612.788 52.4797 0.0)) )
   
4. 
   
5. (setq lst-tx '("文字1" "文字6" "文字8")
   
6.       lst-pt (list a b d)
   
7.       data '(1 1 2) ;文字對齊方式
   
8. )
   
9. (mapcar'(lambda(x y)(make:txt "宋體" 2.5 0 6 data x y))lst-pt lst-tx)
   
10. )
    
11. ;;------------- -------------------------------------
    

;;--------------------------------------------------------- -------   <br /> (defun c:tt() <br /> (mapcar 'set '( a b d) (list '(634.061 61.7639 0.0) '(634.061 58.2639 0.0) '(612.788 52.4797 0.0)) )<br /> <br /> (setq lst-tx '("文字1" "文字6" "文字8") <br />       lst-pt (list a b d) <br />       data '(1 1 2) ;文字對齊方式<br /> ) <br /> (mapcar'(lambda(x y)(make:txt "宋體" 2.5 0 6 data x y))lst-pt lst-tx) <br /> ) <br /> ;;------------- -------------------------------------<br />

hn10183051

(MAPCAR
                '(LAMBDA (X1 Y1)
                                            (entmake (list '(0 . "TEXT") (cons 10 X1) (cons 1 Y1)))
                 )
                PTN
                LST
              )

ssyfeng

加个循环函数不就可以了吗？

逗亦斗霸

ssyfeng 发表于 2024-12-27 06:46
加个循环函数不就可以了吗？

我目前只会写定距递增或递减类的函数，请问这种没有规律的怎么写啊？

fangmin723

(setq lst '((pta . 文字1) (ptc . 文字6) (ptd . 文字8)))
(foreach x lst (entmake (list '(0 . "TEXT") (cons 10 (car x)) (cons 1 (cdr x)))))

逗亦斗霸

fangmin723 发表于 2024-12-27 08:11
(setq lst '((pta . 文字1) (ptc . 文字6) (ptd . 文字8)))
(foreach x lst (entmake (list '(0 . "TEXT") ...

好像不行呐，不能生成哦~

逗亦斗霸

hn10183051 发表于 2024-12-27 08:34
(MAPCAR
                '(LAMBDA (X1 Y1)
                                            (entmake (list '(0 . "TEXT") (cons 10 X1) (cons 1 Y1)))

请问怎么用啊？PTN和LST还设置一下吗？直接加上的话代码都不能使用了啊~

llsheng_73

逗亦斗霸 发表于 2024-12-27 09:23
请问怎么用啊？PTN和LST还设置一下吗？直接加上的话代码都不能使用了啊~

ptn用你的点构成表，lst用你要写的文字内容构成表，到这一步相当于填写姓名、性别那么简单了

xyp1964

1. (setq lst-tx '("文字1" "文字6" "文字8")
   
2.       lst-pt (list a b d)
   
3. )
   
4. (mapcar'(lambda(x y)(entmake(list '(0 . "text")(cons 10 x)(cons 1 y))))lst-pt lst-tx)

(setq lst-tx '("文字1" "文字6" "文字8")<br />       lst-pt (list a b d)<br /> )<br /> (mapcar'(lambda(x y)(entmake(list '(0 . "text")(cons 10 x)(cons 1 y))))lst-pt lst-tx)

fangmin723

逗亦斗霸 发表于 2024-12-27 09:08
好像不行呐，不能生成哦~

额，我这只是示意，具体的你自己改动下就行了
(setq lst (list (cons  (getpoint "拾取点a")  "文字1") (cons  (getpoint "拾取点c") "文字6") (cons  (getpoint "拾取点d") "文字8")))
(foreach x lst (entmake (list '(0 . "TEXT") (cons 1 (cdr x)) (cons 10 (car x)) (cons 40 5))))