🚀 go-pugleaf

    ������һ����������õ�ͼ��,�仭���ںܶ�Ӧ�������
���нϺõĶ���,����A SIC��C���Եȡ���Ϊרҵ���Ļ�ͼ���AUTOC
AD(ACAD),��Ȼ���ͼ����ʮ��ǿ��,���ھ��εĻ��Ʒ�����,ȴ�е�
���������⡣
    ACADϵͳΪ�û��ṩ�ḻ�������Ρ�Բ����Բ��ͼ�εĻ�����
��,ʹ������Ҳ�ǵ���Ӧ��,ʮ�ּ�,���ڻ���һ���򵥵ľ���ʱ,AC
AD��û�������������,��ͼʱҪôͨ������һ�������
�Ƕ�һ��һ���,Ҫô������RECTAN,�Ȼ��ˮƽ���õľ���,�ٽ���
��ת����,�������ֻ���,�û����ܶ�����εij��?�ܷ�ʹ�þ��ε�
��������������򵥷�����?���ǿ϶��ġ�������LISP���Ա��
������������,�����򲻽��ܷ�����Ƹ��������µľ���,���һ�
�ɰ��û���Ҫ������εľ��λ����»��Ƶľ����滻ԭ�о���,�Ӷ�
�������˾��εĻ����ٶ�,�˷���ACADϵͳ��ͼ�θ��ӻ�������
�㡣
    �����嵥����:
    ;;************************************
    ;;��������: 1.��ָ��������ƾ���,����λ�����û������
ָ��;
    ;;������������2.��ָ���������ǵ㼰��ʾ��ȵĵ���ƾ���,
����λ����ֹ�㷽��
    ;;�������������������,���ش�0ʱ,�����������ͬʱɾ��ԭ
���;
    ;;������������3.��ָ�������������ǵ㼰���ֵ���ƾ���,��
��λ����ֹ��������
    ;;��ʹ��˵��: 1.���ƾ���ʱ,��ʾ����X SCALE(���γ�)��Y SC
ALE(���ο�ֵ)��
    ;;��������������ROTATE(�������),�����κ�ֵʱ,��������
��С�ľ��Ρ�
    ;;������������2.���������ʱ,��ָ�����Ϊͼ�ϵ�һ����,��
���Ǿ��ε�һ���ǵ㡣
    ;;������������3.�޸ĺ�ľ��γ��Ϳ��������ͺ����ϵĵ�
��������ָ�ĵ㹹�ɡ�
    ;;������������4.ͼ��J.DWG��һ����λ����,��СΪ1:1,����·
��ΪACAD·��
    ;;��������������������һ��,��\ACAD12�ȡ�
    ;;������������5.���г���ʱ,�ɽ��ó���(���ļ���ΪJXFZ.LSP
)������ACADһ��·
    ;;������������������,����ACAD��,����(LOAD "JXFZ"),�����
��һ��JX����,��
    ;;����������������JX,����ʾ������Ӧ�������ɾ��Ρ�
    ;;************************************
    ;;��ָ�����㼰��Ȼ��ƾ���
    (defun fw()
    (setq pi(/ 3.14 2))
    (setq p1(getpoint"\n�������һ��:"))
    (setq p2(getpoint"\n������ڶ���:"))
    (setq kd(getreal"\n��������:"))
    (setq an21(angle p2 p1)
    an12(angle p1 p2)
    an23(+an12 pi)
    )
    (setq p3(polar p2 an23 kd)
    d21 (distance p2 p1)
    d34 d21
    an34 an21
    )
     (setq p4(polar p3 an34 d34))
     (command "pline" p1 p2 p3 p4 p1 nil)
     );end defun fw()
     ;;;;ɾ��ԭ��ͼ��
    (defun entde()
    (setq sset(ssget b));select ent.across point of b
    (setq entn(ssname sset 0))
    (entdel entn)
    );end defun entde
    (defun czd()
    (setq ang( + anb(/ 3.14 2.0)))   ;ang=ang+pi/2;across pt
 line
    (setq ptt(polar yp ang1))      ;end point line across pt
    (setq ptt(inters b xp yp ptt nil));
    );end defun lk
    ;;********  ���λ������޸�  (MAIN PROGRAM)  ************
    (defun c:jx()
    (setq xz(getstring"\n�����:1.������/2.�����/3.�������
���<2>:"))
    (COND((=XZ"1")
    (COMMAND"INSERT""J")
    )
    ((or(=XZ"2")(=xz""))
    (setq b  (getpoint"\nָ���޸Ľǵ�(���):")
    xp(getpoint"\nָ�����κ���һ��:")
    yp(getpoint"\nָ����������һ��):")
    )
    (SETQ STR(GETSTRING"\n.ֻ��ɾ���?<1>"))
    (COND( (or(=STR"1")(=str""))
    (setq w(distance xp b)
    anb(angle b xp)
    )
    (czd)
    (setq h(distance yp ptt))
    (setq ro(* anb(/ 180 3.14)))
    (command "insert" "j" b w h ro)
    )
    ((=str"0")
    (entde)
    (setq w (distance xp b)
    anb(angle b xp)
    )
    (czd)
    (setq h(distance yp ptt))
    (setq ro(* anb(/ 180 3.14)))
    (command"insert""j"b w h ro)
    )
    );end cond
    )
    ( (= XZ "3")
    (fw)
    )
    );END OF COND
    );end defun c:JX

--
 ________ _____          _____        ______________  _____ 
 ___  __ \___(_)________ ___(_)       __  ___/___  /_ ___(_)
 __  /_/ /__  / ___  __ \__  /        _____ \ __  __ \__  / 
 _  ____/ _  /  __  /_/ /_  /         ____/ / _  / / /_  /  
 /_/      /_/   _  .___/ /_/          /____/  /_/ /_/ /_/   
                /_/                                         

�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn]