改文字在多段线上面

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)) 改 ...

老师，能留下一个联系方式吗？我找你私聊

账号		自动登录	找回密码
密码			注册

改文字在多段线上面

相关帖子