高手帮忙啊！！！

墨梅雪姬 · 发表于 2013-5-17 09:43

ID_SJD [三角点]^C^C(LOAD"KZD");SJD
这句代码中(LOAD"KZD");SJD是什么意思？？
高手路过的都来看啊！！急！！

该贴已经同步到墨梅雪姬的微博

菡萏 · 发表于 2013-5-17 11:57

菜单文件中的调用语句，意思是先加载程序kzd,然后发出命令SJD

lidaxiu · 发表于 2013-5-17 12:55

KZD 就是三角点（SJD）的真正源程序

墨梅雪姬 · 发表于 2013-6-6 17:52

本帖最后由墨梅雪姬于 2013-6-6 17:55 编辑

lidaxiu 发表于 2013-5-17 12:55
KZD 就是三角点（SJD）的真正源程序

(defun c:HP()
(command "bhatch" "p" HP "")
) 你帮我看看这个调用命令，为什么不能执行啊？
谢谢。。。
这是一个屏幕菜单的调用命令，点击后，显示_HP未知命令

lidaxiu · 发表于 2013-6-6 20:14

(command "hatch" "p" "hp" "" "" "")

lidaxiu · 发表于 2013-6-6 20:21

这样ok了吧

lidaxiu · 发表于 2013-6-7 12:43

微博评论 · 发表于 2013-6-7 15:11

转发微博\n\n

来自宋亚凤5 的新浪微博

墨梅雪姬 · 发表于 2013-6-9 18:47

lidaxiu 发表于 2013-6-6 20:14
(command "hatch" "p" "hp" "" "" "")

可以了，谢谢哦！！

墨梅雪姬 · 发表于 2013-6-10 10:46

lidaxiu 发表于 2013-6-6 20:14
(command "hatch" "p" "hp" "" "" "")

;;;绘制地面配电线
(defun c:PDX()
(setq ss '());给ss初始值空表()
  (setq M (getint"\n输入比例尺分母:"))
  (while (setq point0 (getpoint"\n输入杆位或方向:"))
(setq ss (cons point0 ss));结果获得一组点表
  )
  (setq n (length ss) i 0)
  (repeat (- n 1)
(setq pt1 (nth i ss))
(setq pt2 (nth (+ i 1) ss))
(command "units" 2 3 4 5 "0r" "n" "");单位设置(角度以弧度为单位)
(setq alf (angle pt1 pt2));注意系统必须设置为弧度单位
   (cond ((= M 500)(setq c 0.5 ))
      ((= M 1000)(setq c 1 ))
      ((= M 2000)(setq c 2 ))
   )
(command "insert" "dg1" Pt1 c c alf);插入图块dg1
(command "insert" "dg2" Pt2 c c alf);插入图块dg2
(setq pt3(polar pt1 alf (* c 4)) pt4(polar pt2 (+ alf pi) (* c 4)))
(command "color" 3 "line" pt3 pt4 "");画绿色线
(setq i (+ i 1))
  )
  (command "units" 2 3 1 5 "0r" "n" "");;恢复到默认的单位设置
)

杆位或方向不能输入，帮忙看看怎么回事，谢谢！！

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

[源码] 高手帮忙啊！！！

本帖子中包含更多资源