xg2010 发表于 2021-10-23 18:00:05

改文字在多段线上面

本帖最后由 xg2010 于 2023-7-17 21:08 编辑

(defun draw_sample()
(setq bl_draw1 (/ 1000 bl_draw))
(setq pt1 (polar pt0 r0 (* bl_auto(cdr(nth (1- ddtype) DictValue*20160225)))))
;(setq pt2 (polar pt1 r0 (* bl_draw1(atof leth_auto))))ver1
(setq pt2 (polar pt1 r0
       (-
      (* bl_draw1(atof leth_auto))
      (if(= i 0)
         (* 0.5 bl_auto(*1 (cdr(nth (1- ddtype) DictValue*20160225))))
         (* bl_auto(*1 (cdr(nth (1- ddtype) DictValue*20160225))))
      )
       )
      )
);

start4444 发表于 2021-10-24 21:28:28

原代码运行不了

xg2010 发表于 2021-10-25 12:35:00

start4444 发表于 2021-10-24 21:28
原代码运行不了

上传了的你在试试

start4444 发表于 2021-10-27 10:04:46

xg2010 发表于 2021-10-25 12:35
上传了的你在试试

压缩文件的jj不是源码，用外面源码那个jj又运行不了。大概看了下你把可行源码的 (setq pi2(* pi 0.5)) 改为 (setq pi2(* pi 1.5))看看

xg2010 发表于 2021-10-27 16:15:26

start4444 发表于 2021-10-27 10:04
压缩文件的jj不是源码，用外面源码那个jj又运行不了。大概看了下你把可行源码的 (setq pi2(* pi 0.5)) 改 ...

老师，能留下一个联系方式吗？我找你私聊
页: [1]
查看完整版本: 改文字在多段线上面